作者：绿色风
分类：
时间：2022-08-18
浏览：132
楼主
wise |
Q：如何把各个工作簿中对应的工作表内容复制到汇总表中对应的工作表中？
A:ALT+F11→插入模块→模块中输入以下代码：
- Sub 汇总()
- Dim mypath As String, myname As String, Dname As String, i As Integer, j As Integer
- mypath = ThisWorkbook.Path
- myname = ThisWorkbook.Name
- Dname = Dir(mypath & "\*.xls")
- Application.ScreenUpdating = False
- For j = 1 To Sheets.Count
- Sheets(j).UsedRange.Offset(1, 0).Clear
- Next j
- Do While Dname <> ""
- If Dname <> myname Then
- With GetObject(mypath & "\" & Dname)
- For i = 1 To .Sheets.Count
- If .Sheets(i).Name = "常规采购预算" Then
- .Sheets("常规采购预算").UsedRange.Offset(1, 0).Copy Sheets("常规采购预算").[A65536].End(xlUp).Offset(1)
- ElseIf .Sheets(i).Name = "网点建设基本情况一览表" Then
- .Sheets("网点建设基本情况一览表").UsedRange.Offset(1, 0).Copy Sheets("网点建设基本情况一览表").[A65536].End(xlUp).Offset(1)
- ElseIf .Sheets(i).Name = "网点建设预算" Then
- .Sheets("网点建设预算").UsedRange.Offset(1, 0).Copy Sheets("网点建设预算").[A65536].End(xlUp).Offset(1)
- ElseIf .Sheets(i).Name = "营销采购预算" Then
- .Sheets("营销采购预算").UsedRange.Offset(1, 0).Copy Sheets("营销采购预算").[A65536].End(xlUp).Offset(1)
- ElseIf .Sheets(i).Name = "XX专项采购预算" Then
- .Sheets("XX专项采购预算").UsedRange.Offset(1, 0).Copy Sheets("XX专项采购预算").[A65536].End(xlUp).Offset(1)
- End If
- Next i
- .Close False
- End With
- End If
- Dname = Dir
- Loop
- Application.ScreenUpdating = True
- MsgBox "OK!"
- End Sub
07以上的记得把[A65536]改成 cells(Rows.count,1)
 TT.rar
|
2楼
陶陶 |
这个问题也困扰着我,看到一大堆字母脑壳都大了,还是没看懂. |
3楼
lisan |
谢谢分享！我是来学习的，留个记号。 |
4楼
qinhuan66 |
好好学习天天向上 |
5楼
ljx63426 |
谢谢分享！ |
6楼
cola |
学习了，谢谢！ |
7楼
cola |
版主、楼主：工作上会遇到类似问题，但还有另外二个小要求，一个是工作簿有2003、2007（2010）格式，一个是复制工作簿工作表记录时，要求按照一定次序复制，如甲乙丙丁工作簿。能否帮我看看这个帖子的功能如何实现，谢谢！
|
8楼
rongjun |
学习了 ！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一