8楼: Originally posted by isityou at 2014-03-24 22:56:59
百度不是最好的老师，但一定是最全的老师。
给个简单例子，通过索引。
Sub main()
For i = 1 To 100
Workbooks(101).Worksheets(1).Cells(i, 1) = Workbooks(i).Worksheets(1).Cells(1, 1)
Next i
End Sub
...

2楼: Originally posted by asmeng at 2014-03-21 20:07:27
用excel宏就可以了，如果你不知道怎样写宏语言，可以录制宏，看它生成的语句来写。