合并表步驟1：一個(gè)工作簿里面有多個(gè)工作表，各工作表之間的字段是一致的，但數(shù)據(jù)不一致。由于工作需要，需要將各個(gè)工作表的數(shù)據(jù)匯總到一個(gè)表格里面做匯總分析，數(shù)據(jù)少、工作表數(shù)目不多的時(shí)候，CTRL+C后CTRL+V逐個(gè)復(fù)制粘貼是可以的，但數(shù)據(jù)量大、工作表數(shù)據(jù)多的時(shí)候，則可以用宏進(jìn)行快速處理;

‍

合并表步驟2：從上圖中，后面的5個(gè)工作表，里面是源數(shù)據(jù)�！昂喜�報(bào)表”這個(gè)表，則是要將后面5個(gè)表格的數(shù)據(jù)匯總的表格，其內(nèi)容為空。

合并表步驟3：方法：使用宏快速匯總：

(1)錄制宏：首先，點(diǎn)擊文件菜單的“工具”菜單，選擇“宏”—“宏”

合并表步驟4：出現(xiàn)以下的宏界面，在“宏名”中按照自己喜好錄入一個(gè)名稱，這里錄入“合并工作表”的名稱，“位置”是指該宏可以在那個(gè)EXCEL工作簿中使用，這里選擇“當(dāng)前工作簿”。然后點(diǎn)擊“創(chuàng)建”。

合并表步驟5：出現(xiàn)以下的宏錄入界面

Sub 合并工作表()”下面，將以下的字符復(fù)制粘貼過去

Dim m As Integer Dim n As Integer Dim o As Integer For m = 2 To 6

n = Sheets(m).[a65536].End(xlUp).Row o = Sheets(1).[a65536].End(xlUp).Row Sheets(m).Select

Range("a1", "z" & n).Select Range("a" & n).Activate Selection.Copy Sheets(1).Select

Range("a" & o + 1).Select ActiveSheet.Paste Next

合并表步驟6：特別注意這一段字符“For m = 2 To 6”，由于要匯總的數(shù)據(jù)的工作表有5個(gè)，加上“合并報(bào)表”這個(gè)工作表本身，一共是6個(gè)工作表，因此“For m = 2 To 6”中選擇輸入6，如果后面要匯總的數(shù)據(jù)工作表有3個(gè)，則是錄入4，如果有12個(gè)，則是錄入13，依次類推。

合并表步驟7：然后，點(diǎn)擊“文件”菜單，選擇“關(guān)閉并返回到Micrlsoft Excel”。宏至此錄入完畢。

(2)使用已錄制好的宏“合并工作表”，進(jìn)行工作表的數(shù)據(jù)匯總。首先，在“合并報(bào)表”中，點(diǎn)擊點(diǎn)擊文件菜單的“工具”菜單，選擇“宏”—“宏”

合并表步驟8：出現(xiàn)宏界面，點(diǎn)擊選擇“合并工作表”，然后點(diǎn)擊“執(zhí)行”。就能達(dá)到匯總的效果。要注意，為避免出錯(cuò)，最好檢查以下匯總后的報(bào)表中有數(shù)據(jù)的行數(shù)，是否等于后面各個(gè)報(bào)表有數(shù)據(jù)的行數(shù)總和。

合并表步驟9：另外要注意，已經(jīng)使用宏的報(bào)表，在保存時(shí)，會(huì)出現(xiàn)以下提示，點(diǎn)擊確定即可。