VBA如何合并Excel中格式相同多张Sheet变成一个

在日常办公中，我们经常会遇到Excel中格式一样，但内容不一样的多张Sheet，本文分享给大家如何通过VBA快速合并成一张表。

首先，打开我们需要合并的工作簿。

里面有多张Sheet，在最后1张Sheet后，我们插入一张新Sheet

用来合并前面所有的Sheet，不妨命名为“合并”

我们观察一下，左侧列表中是否有模块，

复制粘贴下列VBA代码

Sub merge_zzllrr()

　　Dim s, sht, shts

　　Set shts = Sheets("合并")

　　shts.Cells.Clear

　　Sheets(1).Range("A1:F1").Copy shts.Range("A1:F1")

　　For i = 1 To Sheets.Count - 1

　　Set sht = Sheets(i)

　　sht.Range("A2:G" & sht.Columns(1).Find("*", , , , 1, 2).Row).Copy shts.Range("A" & (shts.Columns(1).Find("*", , , , 1, 2).Row + 1))

　　Next i

　　End Sub

　　然后点击“允许”

　　或者按下快捷键F5即可执行这段合并多张Sheet到一张Sheet的VBA代码。

　　就大功告成了。

　　注意事项

　　VBA宏执行完后，可以保存，也可不保存

　　如果合并后的Sheet名称不叫“合并”，可以在代码中修改一下即可