首先 在你的工作簿里新建立一sheet然后在你的建的那个sheet的标签处右键查看代码然后把下边的代码复制进去去，然后运行运行子程序过一会就合并完了，不过这个代码遇到合并过的单元格就会中断Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.Count If Sheets(j).NameActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1) End If...
