如何合并多個(gè)sheet頁(yè)（如何合并多個(gè)sheet表）

關(guān)于如何合并多個(gè)sheet頁(yè)，如何合并多個(gè)sheet表這個(gè)問(wèn)題很多朋友還不知道，今天小六來(lái)為大家解答以上的問(wèn)題，現(xiàn)在讓我們一起來(lái)看看吧！

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

2、2. 點(diǎn)到新增加的工作表中，按ALT+F11，出現(xiàn)如圖的對(duì)話框。

3、3.雙擊名稱xx的圖標(biāo)。

4、出現(xiàn)如下對(duì)話框。

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

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（這需要把原先那個(gè)sheet1,改為其他的sheet，不和其他工作表重復(fù)即可6.點(diǎn)擊菜單中的執(zhí)行的三角符號(hào)，就可以合并所有sheet的工作表內(nèi)容到一個(gè)工作表中。

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

標(biāo)簽：