如何将一个EXCEL中的多个SHEET中内容合并到一个SHEET中

Question

如题所述

Answer 1

亲，请新建一个Sheet，命名为“汇总”（名字可以随便改）。然后按“Alt+F11”打开VBA编辑窗口，在左侧对应的Sheet“汇总”上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

1234567891011121314151617Sub hz() Dim bt, i, r, c, n, first As Long bt = 1 '表头有几行，这里的1就改成几 Cells.Clear For 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 If Next End Sub

Answer 2

  一键合并，请查看下面的回答：

          如何合并多个Sheet   网页链接

Answer 3

我将一个excel中的多个sheet中的内容合并到一起，你要想把这两个内容合并成一起，那么首先你弄清楚单一的是什么问题？

Answer 4

具体问题具体分析，要看你原始表格和目标的表格的情况？