excel 高手请进,高分回报

发布网友发布时间：2024-10-15 20:23

共2个回答

热心网友时间：2024-12-01 09:12

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

代码如下，可以放在 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!

热心网友时间：2024-12-01 09:12

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