|
Excel快速合并多個(gè)工作表為一個(gè)工作表的VBA代碼 Come from http://www. Article Url??http://www./2810.html 以下的代碼功能是：快速合并同一個(gè)工作薄中的多個(gè)工作表，合并成為一個(gè)工作表。 合并之前，請(qǐng)先創(chuàng)建一個(gè)空白的 Sheet 作為合并目標(biāo) Sheet ，這個(gè) Sheet 必須是第一個(gè) Sheet 。 如果不合并標(biāo)題行（比如第一行）則 j=1 改為 j=2 如果數(shù)據(jù)不是從第一行，或者第一列開(kāi)始的，請(qǐng)修改 j=1 及 k=2 兩行的參數(shù)。 比如 j=2 k=3 表示從 第2行，第三列開(kāi)始的數(shù)據(jù)。 以下是合并的代碼，希望對(duì)您有所幫助。 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 |
|
|
來(lái)自： 昵稱(chēng)8393725 > 《待分類(lèi)1》
