多个工作表如何快速移放至同一个工作薄里

luyanqin1989 · 发表于 2022-12-16 10:34

有A办、B办、C办三张表，请问有什么方法可以快速的把这三张表移动到汇总表里，如图所示

3190496160 · 发表于 2022-12-16 15:34

Sub hebing()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Index > 1 Then
      sh.Delete
End If
Next sh
Application.DisplayAlerts = True
lj = ThisWorkbook.Path & "\"
f = Dir(lj & "*.xls*")
Do While f <> ""
If f <> ThisWorkbook.Name Then
      Set wb = Workbooks.Open(lj & f)
      wb.Worksheets(1).Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
      wb.Close False
End If
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2022-12-16 15:35

多个工作表如何快速移放至同一个工作薄里.rar (78.08 KB, 下载次数: 17)

luyanqin1989 · 发表于 2022-12-16 16:28

3190496160 发表于 2022-12-16 15:34
Sub hebing()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

哇，谢谢，请问如果明细表名称改了，这系列代码还适用吗

3190496160 · 发表于 2022-12-16 19:01

luyanqin1989 发表于 2022-12-16 16:28
哇，谢谢，请问如果明细表名称改了，这系列代码还适用吗

自己试试看看不就知道了吗

luyanqin1989 · 发表于 2022-12-19 09:11

3190496160 发表于 2022-12-16 19:01
自己试试看看不就知道了吗

可以的，谢谢大神

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

[求助] 多个工作表如何快速移放至同一个工作薄里

评分