第2个回答 2012-06-08
可以参看这个循环功能
求excel中在第一个表中点显示按钮将后几个表中的内容显示在第一个表中某一位置的vba代码
Sub Macro1()
Dim i As Integer
Dim j As Integer
i = j = 0
For i = 2 To 15
For j = 2 To 10
'循环
Worksheets("Sheet1").Cells(i, 1).Value = Worksheets("Sheet2").Cells(i, 4).Value '将表2的第4列从第2行起的值赋给表1第1列
Worksheets("Sheet1").Cells(j, 2).Value = Worksheets("Sheet3").Cells(j, 5).Value '将表3的第5列从第2行起的值赋给表1第2列
'可以根据需要修改为其它内容
Next
Next
End Sub本回答被网友采纳