vba如何复制多个excel里面的数据

发布网友发布时间：2022-04-27 12:17

共4个回答

热心网友时间：2023-08-27 21:25

  Sub test()

Dim f, x
f = Application.GetOpenFilename("EXCEL文件,*.*,", 1, MultiSelect:=True)
For x = 1 To UBound(f)
Dim wb
Set wb = Workbooks.Open(f(x))
wb.Sheets(1).Rows("1:1").Delete
wb.Sheets(1).UsedRange.Copy Workbooks("TEST excel.xlsm").Sheets("Sheet1").Range("a10000").End(xlUp).Offset(1, 0)
wb.Close False
Next x

  End Sub

打开附件TEST excel.xlsm；我做了个测试文件；名字为1与2；你试一下；

热心网友时间：2023-08-27 21:26

网上很多合并excel的VBA实例
随便搜一下就可以

热心网友时间：2023-08-27 21:26

这个用VBA写起来比较简单就是不断重复命令打开复制然后关闭

热心网友时间：2023-08-27 21:27

先不说方法怎么弄，就说excel2007一共才100多万行，要是你这样就有800万行，怎么能放得下