在Excel中相同格式工作簿(工作表)汇总到一个工作簿中的方法:
相关主题
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
18、在Excel中相同格式工作簿(工作表)汇总到一个工作簿中的方法:
1、首先新建一个汇总工作簿,汇总工作簿和要会做的其他的工作簿要放在同一个文件夹中。
2、然后再汇总工作簿中打开宏函数(ALT+F11)复制如下代码:Sub HuiZong()
Dim myfile, mypath, wb '声明变量
Application.ScreenUpdating = False '关闭屏幕更新
edRange.Offset(1, 0).Clear '清除除表头之外的所有内容mypath = ThisWorkbook.Path '找到当前工作簿的路径myfile = Dir(mypath & "\*.xls*") '遍历当前文件夹下的Excel文件Do While myfile <> "" '当找到的文件不为空时If myfile <> Then '当找到的文件不是当前Excel工作簿时
Set wb = GetObject(mypath & "\" & myfile) '得到dir找到的工作簿的内容,设为wb
With wb.Sheets(1) '对找到的工作簿的sheet1进行操作
'复制wb的sheet1除第一行的所有内容
.UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & edRange.Rows.Count + 1)
End With
wb.Close False '关闭wb工作簿且不保存End If
myfile = Dir '寻找下一个Excel工作簿Loop
Application.ScreenUpdating = True '恢复屏幕更新End Sub