昨天的案例，客戶的名稱原先已經(jīng)手寫出來了。十幾個(gè)客戶名稱，手寫了有部分出錯，如何才能又快又準(zhǔn)的將客戶名稱提取出來呢？

提取客戶名稱，一般都是采用VBA。按快捷鍵Alt+F11，插入模塊，將代碼復(fù)制粘貼進(jìn)去，點(diǎn)擊運(yùn)行按鈕即可生成。

Sub 目錄()

    Dim i%

        For i = 2 To Sheets.Count

                k = k + 1

                Cells(k + 1, 1) = Sheets(i).Name

        Next

End Sub

提取客戶做目錄這種很常用，還有一種就是逆操作，根據(jù)已經(jīng)有的目錄，生成工作表。

生成工作表，一般都是采用VBA。按快捷鍵Alt+F11，插入模塊，將代碼復(fù)制粘貼進(jìn)去，點(diǎn)擊運(yùn)行按鈕即可生成。

Sub 生成工作表()

    Dim i%

    For i = 2 To Range("A65536").End(3).Row

        Sheets.Add(after:=Sheets(Sheets.Count)).Name = Sheets(1).Range("A" & i)

    Next

End Sub

最后，所有使用代碼的工作簿，都需要另存為啟用宏的工作簿。

VBA對于大多數(shù)人而言，難度都很大，將自己的目標(biāo)定為懂得運(yùn)行代碼，懂得修改簡單的代碼即可。

推薦：一鍵生成目錄（完善版）

上篇：VLOOKUP函數(shù)多表查找的通用公式

獎勵固然重要，但更重要的是學(xué)到知識。

每天花4個(gè)小時(shí)，2個(gè)小時(shí)寫文章，2個(gè)小時(shí)等著互動，就看到十幾條留言，還有幾個(gè)打賞，真的對不起每天付出的時(shí)間。

換位思考，如果你是盧子，你有何感想？