Excel快速合并多個(gè)工作表為一個(gè)工作表的VBA代碼
Come from http://www.dzwebs.net Article Url??http://www.dzwebs.net/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
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶(hù)發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
