合併當前工做簿下的全部工做表

Sub 合併當前工做簿下的全部工做表()orm

Application.ScreenUpdating = Falseio

For j = 1 To Sheets.Countform

   If Sheets(j).Name <> ActiveSheet.Name Thensed

       X = Range("A65536").End(xlUp).Row + 1工作

       Sheets(j).UsedRange.Copy Cells(X, 1)vb

   End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "當前工做簿下的所有工做表已經合併完畢!", vbInformation, "提示"

End Sub

相關文章
相關標籤/搜索