excel中sheet1两维表的数据，每一行自动填入另一个表（sheet2~100）的表格中，用vba开发，如何能做到哪？

Question

很急切，高分悬赏，拜托帮忙

Answer 1

请具体上sheet1两维表的数据，及填入另一表的要求。

追问

两维表的数据都是文字为主，没有公式，两维表中每一行填入另一个sheet画好的表格中，只需要取值就可以，被填入的sheet表格完全一样。实际上第一个两维表是后面的所有表格的汇总表。

追答

Sub Macro1()
Dim i As Integer
Dim s As String
Sheets("Sheet1").Select '选择表1
Rows("1:1").Select '选择标题栏
Selection.Copy '复制
For i = 2 To 100
s = "sheet" & i
Sheets(s).Select '选择各表
Rows("1:1").Select '选择第一行
ActiveSheet.Paste '粘贴
Next
For i = 2 To 100
Sheets("Sheet1").Select '选择表1
Rows(i).Select '选择第二行
Selection.Copy '复制
s = "sheet" & i
Sheets(s).Select '选择各表
Range("A2").Select '选择第二行
ActiveSheet.Paste '粘贴
Next
End Sub