|
Excel快速合并多個工作表為一個工作表的VBA代碼 Come from http://www. Article Url??http://www./2810.html 以下的代碼功能是：快速合并同一個工作薄中的多個工作表，合并成為一個工作表。 合并之前，請先創建一個空白的 Sheet 作為合并目標 Sheet ，這個 Sheet 必須是第一個 Sheet 。 如果不合并標題行（比如第一行）則 j=1 改為 j=2 如果數據不是從第一行，或者第一列開始的，請修改 j=1 及 k=2 兩行的參數。 比如 j=2 k=3 表示從 第2行，第三列開始的數據。 以下是合并的代碼，希望對您有所幫助。 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 |
|
|
