開啟你的工作簿 新建一個工作表 在這個工作表的標籤上右鍵 檢視程式碼 你把下面的程式碼複製到裡邊去，然後 上面有個執行 執行子程式就可以了，程式碼如下，如果 出現問題你可以嘗試工具 宏 宏安全性裡把那個降低為中或者低再試試Sub 合併當前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor 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 IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "當前工作簿下的全部工作表已經合併完畢！", vbInformation, "提示"End Sub
開啟你的工作簿 新建一個工作表 在這個工作表的標籤上右鍵 檢視程式碼 你把下面的程式碼複製到裡邊去，然後 上面有個執行 執行子程式就可以了，程式碼如下，如果 出現問題你可以嘗試工具 宏 宏安全性裡把那個降低為中或者低再試試Sub 合併當前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor 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 IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "當前工作簿下的全部工作表已經合併完畢！", vbInformation, "提示"End Sub