多个表格数据汇总,如何将多个工作表中的内容汇总到一张工作表中
答案:1 悬赏:0 手机版
解决时间 2021-04-25 02:58
- 提问者网友：临风不自傲
- 2021-04-24 23:46
多个表格数据汇总,如何将多个工作表中的内容汇总到一张工作表中
最佳答案
- 五星知识达人网友：有你哪都是故乡
- 2021-04-25 00:07
亲，请新建一个Sheet，命名为“汇总”（名字可以随便改）。然后按“Alt+F11”打开VBA编辑窗口，在左侧对应的Sheet“汇总”上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
Sub hz()Dim bt, i, r, c, n, first As Longbt = 1 '表头有几行，这里的1就改成几Cells.ClearFor i = 1 To Sheets.Count If Sheets(i).Name ActiveSheet.Name Then If first = 0 Then c = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column Sheets(i).Range(A1).Resize(bt, c).Copy Range(A1) n = bt + 1: first = 1 End If r = Sheets(i).Cells(Rows.Count, A).End(xlUp).Row Sheets(i).Range(A & bt + 1).Resize(r - 1, c).Copy Range(A & n) n = n + r - bt End IfNextEnd Sub
Sub hz()Dim bt, i, r, c, n, first As Longbt = 1 '表头有几行，这里的1就改成几Cells.ClearFor i = 1 To Sheets.Count If Sheets(i).Name ActiveSheet.Name Then If first = 0 Then c = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column Sheets(i).Range(A1).Resize(bt, c).Copy Range(A1) n = bt + 1: first = 1 End If r = Sheets(i).Cells(Rows.Count, A).End(xlUp).Row Sheets(i).Range(A & bt + 1).Resize(r - 1, c).Copy Range(A & n) n = n + r - bt End IfNextEnd Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯