1. VBA代码

  1. Sub 合并当前工作簿下的所有工作表()
  2. Application.ScreenUpdating = False
  3. For j = 1 To Sheets.Count
  4. If Sheets(j).Name <> ActiveSheet.Name Then
  5. X = Range("A65536").End(xlUp).Row + 1
  6. Sheets(j).UsedRange.Copy Cells(X, 1)
  7. End If
  8. Next
  9. Range("B1").Select
  10. Application.ScreenUpdating = True
  11. MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
  12. End Sub

2. 执行宏

说明：这个代码暂时未运行成功

测试说明：这段代码会漏了工作表没合并，修复前不要用