如何合并多個工作表

關于如何合并多個工作表這個問題很多朋友還不知道，今天小六來為大家解答以上的問題，現在讓我們一起來看看吧！

1、1. 增加一個工作表sheet，重命名xx 。

2、2. 點到新增加的工作表中，按ALT+F11，出現如圖的對話框。

3、3.雙擊名稱xx的圖標。

4、出現如下對話框。

5、4. 在上圖紅色的區(qū)域復制上如下代碼。

6、Sub GetStName() Dim FinalRow As Long Dim St As Worksheet FinalRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 2 For Each St In ThisWorkbook.Worksheets Cells(FinalRow, 1).Value = ***.Name FinalRow = FinalRow + 1 Next StEnd Sub5.把名稱為xx的圖表的屬性改為sheet1（這需要把原先那個sheet1,改為其他的sheet，不和其他工作表重復即可6.點擊菜單中的執(zhí)行的三角符號，就可以合并所有sheet的工作表內容到一個工作表中。

本文分享完畢，希望對大家有所幫助。

標簽：