轉自EXCEL不加班
昨天的案例，客戶的名稱原先已經手寫出來了。十幾個客戶名稱，手寫了有部分出錯，如何才能又快又準的将客戶名稱提取出來呢？
提取客戶名稱，一般都是采用VBA。按快捷鍵Alt F11，插入模塊，将代碼複制粘貼進去，點擊運行按鈕即可生成。
Sub 目錄()
Dim i%
For i = 2 To Sheets.Count
k = k 1
Cells(k 1, 1) = Sheets(i).Name
Next
End Sub
提取客戶做目錄這種很常用，還有一種就是逆操作，根據已經有的目錄，生成工作表。
生成工作表，一般都是采用VBA。按快捷鍵Alt F11，插入模塊，将代碼複制粘貼進去，點擊運行按鈕即可生成。
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對于大多數人而言，難度都很大，将自己的目标定為懂得運行代碼，懂得修改簡單的代碼即可。
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
