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