Excel N个表，汇总表A列是工作表名。如何用宏提取各个工作表内某单元格内容到汇总表对应工作表名B列？
发布网友
发布时间：2022-05-06 07:44
共2个回答
热心网友
时间：2023-10-08 17:36
在汇总表的B2单元格中输入公式
=INDIRECT(A2&"!BB45")
下拉填充即可。
若是一定要VBA，请追问。
热心网友
时间：2023-10-08 17:36
Dim i%
For i = 1 To Sheets.Count - 1
Cells(i + 1, 1) = Sheets(i).Name
Cells(i + 1, 2) = Sheets(i).[bb45].Value
Next
[a1].Resize(1, 2) = Array("名称", "值")
End Sub追问您这个会变动了汇总表A列工作表名的顺序，我不想变动这个顺序。
追答Sub test()
Dim i%, Arr
Arr = [a1].CurrentRegion
For i = 2 To UBound(Arr, 1)
Cells(i, 2) = Sheets(Arr(i, 1)).[bb45].Value
Next
End Sub
