VIP學員的問題，應(yīng)收賬款有很多分表，分表經(jīng)常會錄入新數(shù)據(jù)，希望不用每次都復制粘貼，能夠?qū)崿F(xiàn)總表自動更新。

先來看看盧子做的模板，點一下自動更新數(shù)據(jù)按鈕，就將分表所有數(shù)據(jù)合并過來了。

在第一個分表輸入幾行數(shù)據(jù)。

有錄入新數(shù)據(jù)，就點一下更新數(shù)據(jù)按鈕，就可以，這樣就方便多了。

模板雖然爽，但是必須要滿足下面這些條件才能正常使用。

01 沒有合并單元格

02 標題都在第一行，并且每個標題的順序一樣

03 除了要合并的表格，沒有其他多余的表格

04 第一個表格名稱叫匯總

下面教你怎么將VBA代碼運用到你的表格里面。

Step 01 點開發(fā)工具，VB，插入模塊，將代碼粘貼進去。

Sub 合并()

Dim sht As Worksheet, arr

Sheets("匯總").Range("a2:z65536").Delete

For Each sht In Worksheets

    If sht.Name <> "匯總" Then

        i = sht.Range("b65536").End(xlUp).Row

        j = Sheets("匯總").Range("a65536").End(3).Row + 1

            arr = sht.Range("a2:z" & i)

            Sheets("匯總").Range("a" & j).Resize(UBound(arr), 26) = arr

    End If

Next

End Sub

Step 02 關(guān)閉窗口回到工作表中，并插入一個按鈕，調(diào)整大小，指定剛剛的宏，確定。

Step 03 修改按鈕的名稱。

Step 04 另存為啟用宏的工作簿。

到此，一份自動更新模板就做成功了。