excel合并多个sheet内容
Sub 合并() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "合并完成", vbInformation, "提示" End Sub
觉得本站还不错就打赏一下吧!
支付宝扫一扫打赏

微信扫一扫打赏
