汇总多个excel文件中固定的一列，到一个表中。

这个是昵称吗

1. Sub 我是昵称()
   
2. Dim f As String, shts As Object, sht As Worksheet
   
3. Dim ar, i%, s, br(), n&
   
4. Cells.Clear
   
5. n = 1
   
6. s = Application.InputBox("输入大写列号多个用英文逗号隔开 “，”", " ", "D,E,F")
   
7. If s = False Then End
   
8. Application.ScreenUpdating = False
   
9. f = Dir(ThisWorkbook.Path & "" & "*.xls")
   
10. ar = Split(s, ",")
    
11. Do While f <> ""
    
12.     If f <> ThisWorkbook.Name Then
    
13.           Set shts = GetObject(ThisWorkbook.Path & "" & f)
    
14.                 For Each sht In shts.Worksheets
    
15.                     For i = 0 To UBound(ar)
    
16.                         With sht
    
17.                             br = .Range(.Cells(1, ar(i)), .Cells(.Rows.Count, ar(i)).End(xlUp))
    
18.                             br = Application.Transpose(br)
    
19.                             Cells(n, 1).Resize(1, UBound(br)) = br
    
20.                             n = n + 1
    
21.                         End With
    
22.                     Next
    
23.                 Next
    
24.         Workbooks(f).Close False
    
25.     End If
    
26.     f = Dir
    
27. Loop
    
28.     Set sht = Nothing
    
29.     Set shts = Nothing
    
30. Application.ScreenUpdating = True
    
31. End Sub

复制代码

你试试！

420045140

LMY123 发表于 2018-6-11 15:47

请问一下，如果我想汇总其他列，需要改上边代码的哪里呢？

LMY123

420045140 发表于 2018-6-11 16:49
请问一下，如果我想汇总其他列，需要改上边代码的哪里呢？

F1为C列，F2为D列，F3为E列

420045140

LMY123 发表于 2018-6-11 16:55
F1为C列，F2为D列，F3为E列

感谢您。。。
小白我总算是看懂了一点点。   改了下范围也能适用了

420045140

这个是昵称吗 发表于 2018-6-11 16:26
你试试！

您这个我试了一下，它自动清空当前表之后就没有什么反应了

420045140

LMY123 发表于 2018-6-11 16:55
F1为C列，F2为D列，F3为E列

这个代码就我附件的数据来说已经很适用了。
可是我用到其他的文件时，会显示下标越界。

这个是昵称吗

420045140 发表于 2018-6-11 20:27
您这个我试了一下，它自动清空当前表之后就没有什么反应了

那就不知道，我自己测试了下ok的！

LMY123

420045140 发表于 2018-6-11 20:28
这个代码就我附件的数据来说已经很适用了。
可是我用到其他的文件时，会显示下标越界。

上传有问题的文件吧

jjmysjg

这个是昵称吗 发表于 2018-6-12 10:03
那就不知道，我自己测试了下ok的！

我这也无反应，你能上个附件吗
谢谢

这个是昵称吗

jjmysjg 发表于 2018-6-12 15:01
我这也无反应，你能上个附件吗
谢谢

你试试呢！用的楼主文件测试！