[已解决]汇总读取其他工作簿单元格信息

peng3726 · 发表于 2014-12-16 20:05

大神帮看下这个代码怎么写，需要用宏控制，点击按钮后将除总表外的其他excel文件的第一列和第二列内容依次读取到总表的第一列和第二列，如何做循环？是否用到遍历，头痛，感激！！！

最佳答案

qh8600

2014-12-16 20:37

测试.rar (27.85 KB, 下载次数: 19)

peng3726 · 发表于 2014-12-16 20:31

顶起看看

Excel学徒123 · 发表于 2014-12-16 20:33

第一列第二列？而不是分表的第一列第二列同时出现在总表里？

peng3726 · 发表于 2014-12-16 20:36

Excel学徒123 发表于 2014-12-16 20:33
第一列第二列？而不是分表的第一列第二列同时出现在总表里？

就是将分表的内容读取到总表里面，总表2列，分表也是俩列

qh8600 · 发表于 2014-12-16 20:37

测试.rar (27.85 KB, 下载次数: 19)

peng3726 · 发表于 2014-12-16 20:42

qh8600 发表于 2014-12-16 20:37
楼主试试

差不多就是这个意思，不过这个速度是不是有点慢~~~我分表基本上有200+，那到时候会不会卡死，大神！！！

qh8600 · 发表于 2014-12-16 20:43

本帖最后由 qh8600 于 2014-12-16 20:45 编辑

peng3726 发表于 2014-12-16 20:42
差不多就是这个意思，不过这个速度是不是有点慢~~~我分表基本上有200+，那到时候会不会卡死，大神！！！
...

一般打开200多个工作簿，肯定会有点卡的

Excel学徒123 · 发表于 2014-12-16 20:44

Sub test()
Dim MyDir As String, Mypath As String, Nm As String
Application.ScreenUpdating = False
Mypath = ThisWorkbook.Path
MyDir = Dir(Mypath & "\*.xls*")
Nm = ThisWorkbook.Name
Do While MyDir <> ""
If MyDir <> Nm Then
Workbooks.Open Filename:=Mypath & "" & MyDir
Workbooks(Nm).Activate
Workbooks(MyDir).Sheets(1).UsedRange.Copy Workbooks(Nm).Sheets(1).Cells(Rows.Count, 1).End(3).Offset(1, 0)
Workbooks(MyDir).Close
End If
MyDir = Dir
Loop
Application.ScreenUpdating = True
End Sub

复制代码

测试了，没问题，附件在楼下

Excel学徒123 · 发表于 2014-12-16 20:45

.......

Excel学徒123 · 发表于 2014-12-16 20:49

qh8600 发表于 2014-12-16 20:37
楼主试试

手速好快

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