分表中數(shù)據(jù)會(huì)隨機(jī)變化，總表自動(dòng)隨之改變不用手工填充。據(jù)說(shuō)需要使用VBA代碼，本人非計(jì)算機(jī)專(zhuān)業(yè)，看不懂程序代碼，還請(qǐng)大神相助。
可以利用VBA將excel中的幾個(gè)明細(xì)表中的每一條記錄依次匯總到一個(gè)總表中
軟件版本：Office2007
方法如下：
1.當(dāng)前工作簿中有多個(gè)工作表，結(jié)構(gòu)都一樣如下所示，當(dāng)里面的數(shù)據(jù)不一樣，將它們?nèi)亢喜⒌疆?dāng)前工作表中：
2.Alt+F11，打開(kāi)宏界面，輸入如下代碼：
Sub m()
For Each sh In Sheets '遍歷每個(gè)工作表，提取數(shù)據(jù)
If sh.Name <> "Sheet1" Then '排除當(dāng)前工作表
sh.Range("B2:G" & sh.Range("A65536").End(3).Row).Copy Range("A" & Range("A65536").End(3).Row + 1) '將工作表中的所有數(shù)據(jù)復(fù)制到當(dāng)前工作表最后一行的下一行中
End If
Next
End Sub
3.F5執(zhí)行代碼，返回Excel得到結(jié)果如下，工作表合并完成：
