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

1、首先，打开我们酋篚靶高需要合并的工作簿。里面有多张Sheet，在最后1张Sheet后，我们插入一张新Sheet用来合并前面所有的Sheet，不妨命名为“合并”

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

5、复制粘贴下列VBA代码Sub merge_zzllrr() Dim s, sht, sht衡痕贤伎s Set shts = Sheets(&鳎溻趄酃quot;合并") 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 iEnd Sub