客戶對賬清單，記錄著幾十個客戶的各種數(shù)據(jù)。

希望將每個客戶的數(shù)據(jù)引用到模板里面，每個客戶生成一個表。

VIP會員的這個問題，用普通的復制粘貼也能實現(xiàn)，就是非常繁瑣，需要復制粘貼無數(shù)次。

這種有兩種比較常用的解決方案，一個是借助Word郵件合并，另一個是借助VBA，今天盧子就分享這個VBA代碼。

VBA有一個好處，就是設置完模板，以后就能一鍵生成，一勞永逸。運行代碼，短短幾秒就全部生成對賬單。

使用VBA的，都需要啟用所有宏。

源代碼：

Sub 對賬單()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For X = Sheets.Count To 3 Step -1

    Sheets(X).Delete

Next

With Sheets("客戶對賬清單")

    For X = 2 To .Cells(Rows.Count, 3).End(3).Row

        Sheets("模板").Copy After:=Sheets(Sheets.Count)

        ActiveSheet.Name = .Cells(X, 4)

        [B1] = .Cells(X, 3)

        [B2] = .Cells(X, 4)

        [E11] = .Cells(X, 5)

        [E12] = .Cells(X, 6)

        [E13] = .Cells(X, 7)

        [E14] = .Cells(X, 16)

    Next

    .Select

End With

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

詢證函也是這種格式，詳見文章：不想加班，就來學一鍵生成往來款項詢證函！

復制這段內容后打開百度網(wǎng)盤手機App，操作更方便哦

推薦：不想加班，就來學一鍵生成往來款項詢證函！

上篇：一鍵將多個工作簿合并成多個工作表（完善版）

VBA很好用，也很難，如果你有心學習，買2本VBA書籍全面學習。點下方的小程序購買。