在excel中如何使用VBA宏代码快速把一个工作簿中不同工作表的固定单元格区域的数值转移到同一个工作表中？

Question

例如，把sheet1区域【A1:F1】单元格中的数值转移到“汇总”表的【A1:F1】区域单元格中，把sheet2区域【A1:F1】单元格中的数值转移到“汇总”表的【A2:F2】区域单元格中，把sheet3区域【A1:F1】单元格中的数值转移到“汇总”表的【A3:F3】区域单元格中，以此类推,......，把把sheet100区域【A1:F1】单元格中的数值转移到“汇总”表的【A100:F100】区域单元格中。

Answer 1

Sub main()
Dim mySheet As Worksheet
Dim tmpSheet As Worksheet
Dim R As Integer, C As Integer
R = 1
Set mySheet = ThisWorkbook.Worksheets.Add()
mySheet.Name = "汇总"
For Each tmpSheet In ThisWorkbook.Worksheets
With tmpSheet
If .Name <> "汇总" Then
For C = 1 To 6
mySheet.Cells(R, C) = .Cells(1, C)
Next
mySheet.Cells(R, C) = .Name
R = R + 1
End If
End With
Next
End Sub
'如果你已经建好了“汇总”表，请先删除之。

Answer 2

在sheet100的A1输入公式
=indirect("sheet"&row()&"!r1c",)
向右向下填充即可

Answer 3

Sub a()
Dim i As Long
For i = 1 To 100
Sheets("sheet" & i).Activate
Range("A1:F1").Copy Sheets("汇总").Range("A" & i)
Next i
End Sub本回答被提问者和网友采纳

Answer 4

用VBA的formula啊