與 30萬 讀者一起學(xué)Excel
昨天的案例,客戶的名稱原先已經(jīng)手寫出來了。十幾個客戶名稱,手寫了有部分出錯,如何才能又快又準(zhǔn)的將客戶名稱提取出來呢?
提取客戶名稱,一般都是采用VBA。按快捷鍵Alt+F11,插入模塊,將代碼復(fù)制粘貼進(jì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)去,點擊運行按鈕即可生成。
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)定為懂得運行代碼,懂得修改簡單的代碼即可。
推薦:一鍵生成目錄(完善版)
獎勵固然重要,但更重要的是學(xué)到知識。
每天花4個小時,2個小時寫文章,2個小時等著互動,就看到十幾條留言,還有幾個打賞,真的對不起每天付出的時間。
換位思考,如果你是盧子,你有何感想?
作者:盧子,清華暢銷書作者,《Excel效率手冊 早做完,不加班》系列叢書創(chuàng)始人,個人公眾號:Excel不加班(ID:Excelbujiaban)