Sub 合并 ()For I = 2 To Sheets.CountSheets(I).Rows(“2“ & “:“ & Sheets(I).Range(“A60000“).End(xlUp).Row). _Copy Range(“A“ & Range(“A60000“).End(xlUp).Row + 1)NextEnd Sub如果工作表的第一行都一样，就把上面 Rows(“1“ & 的 1 改成 2 就好了操作步骤1、 新建一个工作表（sheet） ，将此工作表放在最前面的位置2、 按 ALT+F11，选择“插入-模块”3、 复制上面代码到模块中4、 点击运行
