【Excel】將分散於多個sheet中的值複製到一個sheet中

需求說明

有時候期望篩選的值位於一個Excel表格的多個sheet中
這時，期望將所有sheet中的值做一個合併

具體操作

第一步：
在工作表的第一個sheet上，點擊【右鍵】->【插入工作表】

第二步：
在新建的sheet（位於工作簿的第一個），點擊【右鍵】->【查看代碼】

第三步：
在新打開的代碼窗口中粘貼如下代碼：

Sub CombineSheet()

Dim i, j, k, n As Integer
n = 1
For i = 2 To ThisWorkbook.Sheets.Count
For j = 1 To ThisWorkbook.Sheets(i).UsedRange.Rows.Count
For k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.Count
ThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).Value
Next k
n = n + 1
Next j
Next i

End Sub

注意：上面代碼中的參數“i”表示從哪一個sheet開始處理，參數“j”表示從sheet的哪一行開始處理，所以如果複製的時候，不想複製每個sheet的表頭，則將j的值由“1”改成“2”即可

第四步：
點擊代碼窗口的“三角形”按鈕，執行子過程即可