Excel合併多個工作表(Sheet)到一個Sheet中指令碼
阿新 • • 發佈:2019-02-10
合併資料指令碼
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, "提示"
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
使用流程,
首先在工作表最前面新增一個工作表Sheet,
然後在工作Sheet中郵件檢視程式碼
將上述指令碼黏貼到空白處
執行程式碼(綠色三角箭頭)
合併完畢