首頁 >專題 >excel >excel中如何sheet批量合併工作頁?

excel中如何sheet批量合併工作頁?

coldplay.xixi
coldplay.xixi原創
2020-07-07 11:31:028838瀏覽

excel中sheet批次合併工作頁的方法:首先在最前頁新建一個工作表;然後在新建的sheet表中【右鍵】,找到【查看程式碼】;最後將程式碼複製進去,並點擊【運行】下的【運行子過程/用戶窗體】即可。

excel中如何sheet批量合併工作頁?

excel中sheet批次合併工作頁的方法:

1、看到這麼多資料頁要合併,如果是複製貼上的話,工作量就很大了。我們現在開始合併,首先要在最前頁新建一個工作表。如圖:

excel中如何sheet批量合併工作頁?

2、在新建的sheet表中“右鍵”,找到“查看程式碼”,然後看到巨集計算介面。如圖所示:

excel中如何sheet批量合併工作頁?

3、看到巨集計算介面,我們就只需要把下面的程式碼複製進去,程式碼如下,效果如下:

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

excel中如何sheet批量合併工作頁?

4、做完上面的事情,然後只需要點擊工具列上面的「運行」下的「運行子過程/使用者窗體」就可以了,合併完之後會有提示。提示完成之後就可以把巨集計算介面關閉了。如圖:

excel中如何sheet批量合併工作頁?

5、合併後的效果如下圖,我們看到的是合併之後有8000多行,就是205頁合併後的結果。謝謝。如有疑問,請留言。

excel中如何sheet批量合併工作頁?

相關學習推薦:excel基礎教學

以上是excel中如何sheet批量合併工作頁?的詳細內容。更多資訊請關注PHP中文網其他相關文章!

陳述:
本文內容由網友自願投稿,版權歸原作者所有。本站不承擔相應的法律責任。如發現涉嫌抄襲或侵權的內容,請聯絡admin@php.cn