- 可以看到需求是工作簿合内容并到一个工作簿
- 新建一个工作簿,然后右键查看代码Alt+F11
Sub hebing() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A95536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示" End Sub
3、点击运行就可以看到合并了