多张同行不同列的excel表汇总到一张表上

ft15464493 · 发表于 2013-1-5 21:03

各位高手，

   多张同行不同列的excel表汇总到一张表上，本人有100多张同列不同行的excel表，想汇总到一张新表上，从上往下依次罗列。有附件！

   哪位高手老师帮帮忙，在线等！！！

   多谢！！！

I6058 · 发表于 2013-1-5 22:11

本帖最后由 I6058 于 2013-1-5 22:14 编辑

请测试：

Sub test()
Dim myPath As String, myFile As String, arr(), brr(1 To 10000, 1 To 7), rowx As Integer, k As Integer, m As Integer
Application.ScreenUpdating = False
myPath = ThisWorkbook.Path & "\分表"
myFile = Dir(myPath & "*.xls")
Do While myFile <> ""
With GetObject(myPath & myFile)
rowx = .Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
ReDim arr(1 To rowx - 1, 1 To 7)
arr = .Sheets("sheet1").Range("a2:g" & rowx).Value
For k = 1 To UBound(arr)
m = m + 1
For i = 1 To 7
brr(m, i) = arr(k, i)
Next i
Next k
.Close False
End With
myFile = Dir
Loop
Range("a2").Resize(UBound(brr), 7).Value = brr
Application.ScreenUpdating = True
End Sub

复制代码

I6058 · 发表于 2013-1-5 22:20

附件1.zip (31.93 KB, 下载次数: 42)

		自动登录	找回密码
密码			免费注册

[求助] 多张同行不同列的excel表汇总到一张表上