以下代碼的功能是，合并同一個(gè)工作薄中的其余的所有的工作表，將其余的表的數(shù)據(jù)，全部追加到第一個(gè)工作表后面，形成完整的唯一的一個(gè)表數(shù)據(jù)。

　　代碼如下，稍后會(huì)附上代碼說(shuō)明：

　　Dim MyCount As Integer

　　k = Worksheets(1).UsedRange.Rows.Count + 1

　　For MyTable = 2 To Worksheets.Count

　　For i = 5 To Worksheets(MyTable).UsedRange.Rows.Count

　　For j = 1 To Worksheets(MyTable).UsedRange.Columns.Count

　　Worksheets(1).Cells(k, j).Value = Worksheets(MyTable).Cells(i, j).Value

　　Next j

　　k = k + 1

　　Next i

　　Next MyTable

　　注意哦，如上的代碼，僅把其它表的第五行的數(shù)據(jù)至最后一行的數(shù)據(jù)陣加到第一表的后面，第一行到第四行是標(biāo)題，不進(jìn)行追加。For i = 5代表的是從第五行開(kāi)始陣加。

　　代碼解釋

　　k = Worksheets(1).UsedRange.Rows.Count + 1　獲取第一個(gè)工作表的最后一行的行號(hào)后加1

　　For MyTable = 2 To Worksheets.Count　從第二個(gè)工作表開(kāi)始循環(huán)至最后一個(gè)工作表，目的就是通過(guò)循環(huán)追加其它表到第一表嘛

　　For i = 5 To Worksheets(MyTable).UsedRange.Rows.Count　每個(gè)工作表，僅從第五行至有效數(shù)據(jù)最后一行，追加到表一。

　　For j = 1 To Worksheets(MyTable).UsedRange.Columns.Count　從每個(gè)工作表的第一列到有效列數(shù)據(jù)的最大列號(hào)做循環(huán)。

　　Worksheets(1).Cells(k, j).Value = Worksheets(MyTable).Cells(i, j).Value　將其它表的有效數(shù)據(jù)的單元格的值，賦值到第一工作表的相應(yīng)單元格內(nèi)。