EXCEL中同一个工作薄多张工作表合并

来源：百度知道 编辑：UC知道 时间：2024/06/23 07:40:59
我有一个工作簿里有50个工作表（Sheet1-Sheet50）。这50个sheet里都是表格。内容区域里的表头和格式，行数，列数都相同，唯有单元格内的内容不同。
我现在想在Sheet51里收集Sheet1-Sheet20里的所有表格内容。
用复制粘贴肯定原始，笨拙，工作量又大。

需要用到宏
第一步：摁下ALT + F11,进入VBA编辑器。
第二步：双击编辑器左上角的“工程资源管理器”里面的“ThisWorkBook”，在右侧的代码区粘贴下面的代码：

Sub 合并工作表()

Application.DisplayAlerts = False
Application.ScreenUpdating = False
For i = 1 To 50
Sheets(i).Select
ActiveSheet.Range("A1").CurrentRegion.Select
Selection.Copy
Worksheets(51).Activate
Range("a65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

第三步：摁F5运行即可完成合并。

关注下！

一同关注

只需在一行或一列定义好取数公式，然后复制到所有单元格，工作量不会太大。
如果是所有单元格数据相加，在第51个表中一个单元格中定义好公式复制即可。