excel 高手请进，高分回报

来源：百度知道 编辑：UC知道 时间：2024/06/21 10:01:12
有4个excel文件，a0.xls、a1.xls、a2.xls~a100.xls、
如何把a0文件中F2~F101单元格中的数据，发送到其它100个文件的E2单元格中。

这个问题只能用宏来解决了！

代码如下，可以放在 a0.xls中或个人宏工作溥中。
手工打开a0.xls文件后，执行此宏，它会依次打开 a1.xls、2.xls~a100.xls这100个文件，并将a0文件当然工作表的F2~F101单元格中数据，粘贴到这100个文件的当前工作表E2位置上，并保存关闭。

Sub MyMacro1()
Dim i As Integer, mydir As String
Range("F2:F101").Select
mydir = "D:\工作文件"
For i = 1 To 100
Selection.Copy
Workbooks.Open Filename:=mydir & "\A" & i & ".xls"
Range("E2").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
Next i
Application.CutCopyMode = False
End Sub

需要注意这句中的“D:\工作文件”，需要改为你自己的文件夹所在位置：
mydir = "D:\工作文件"

Good Luck!

楼上是不是把问题理解错了呢？