excel动态获取多个sheet页的某一列
时间: 2023-08-07 16:04:41 浏览: 62
您可以使用VBA宏编程来动态获取多个Sheet页的某一列。下面是一个示例代码,可以将Sheet1至Sheet3中的A列数据汇总到当前Sheet页的B列中:
```
Sub GetColumnData()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Integer
Dim j As Long
j = 1 '起始行号
For i = 1 To 3 'Sheet1至Sheet3
Set ws = ThisWorkbook.Worksheets("Sheet" & i)
lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row '获取A列最后一行
'将A列数据复制到当前Sheet页的B列
ws.Range("A1:A" & lastRow).Copy Destination:=ActiveSheet.Cells(j, "B")
j = j + lastRow '更新起始行号
Next i
End Sub
```
在代码中,我们首先使用For循环遍历需要获取数据的Sheet页(这里是Sheet1至Sheet3),然后分别获取每个Sheet页的A列最后一行数据,将其复制到当前Sheet页的B列指定位置。通过更新起始行号,可以实现将不同Sheet页的数据汇总到同一列中。
您可以将这段代码复制到Excel的VBA编辑器中,然后在需要获取数据的地方调用该宏即可。