用excelVBA怎么把多个工作表里的数据有条件复制到一个工作表里（excelVBA跨表格提取数据）

下面的代码：

Sub 把所有工作表的内容复制到第一个表末尾()

Dim i, n

For i = 2 To Sheets.Count

n = Sheets(1).UsedRange.Rows.Count + 1

Sheets(i).UsedRange.Copy Sheets(1).Cells(n, 1)

Next i

End Sub