這兩天公司盤點，想列印些盤點標籤，類似下圖這樣的，在網上搜了下，沒找到合適的案例，就自己做了份。

標籤樣式

首先，做個物料表

我的是這樣的，第一列，填寫序號，這個挺重要的，就是依據它來列印的。序號按1，2，3順序填寫。

物料表

其它列，填寫你需要的內容。

先說下，我比較懶，我是先盤點好，最後列印的標籤，數量也列印的。

做標籤頁

這個和平時自己做表格一樣，你怎麼順眼怎麼做。下圖是我需要的，一頁A4紙排了8個小標籤

標籤排版

上圖中有個E9單元格，後面會用到。

標籤頁公式

標籤頁填寫的公式

看上圖，很簡單的一個公式，“=VLOOKUP（$E$9，物料名稱！$A：$D，4，0）”，從物料名稱表裡按順序填寫名稱。

第2個標籤頁，為“=VLOOKUP（$E$9+1，物料名稱！$A：$D，4，0）”，比第1個，+1，以此類推，第8個標籤頁，+7。

VLOOKUP是橫著查詢，$符號是絕對引用的意思，不帶$為相對引用。

列印程式碼

Sub 列印標籤（）Dim a As Integer ‘定義變數a為整數Dim b As Integer ’定義變數b為整數Dim c As Integer ‘定義變數c為整數’a = InputBox（“請輸入開始列印序號”） ‘若要使用這句，把本行最前面的“’”刪除，下同。 ‘同時，須把下面的“a = 1 及 b = 597 ”刪除，或者在其前面加上豆撇 ’‘b = InputBox（“請輸入結束列印序號”）’下面2行，是我圖省事，自己用的。a = 1 ‘從序號1開始b = 597 ’到序號597結束c = （b + 8） / 8 ‘你一頁有幾個標籤，8就是幾。比如你一頁排了4個標籤，這句就是c = （b + 4） / 4For i = a To c ’從序號a列印到序號c，本例中，a是1，c = （b + 8） / 8 = （597 + 8） / 8 = 75。625Range（“E9”）。Value = a ‘把E9單元格的數字傳給變數a’ActiveSheet。PrintOut ‘若你只有一個印表機，或者列印前先選定了印表機，可以使用這句，會使用預設印表機列印。’下句可以指定使用哪個印表機來列印。From：=1， To：=1，可以指定列印第幾頁至第幾頁。ActiveWindow。SelectedSheets。PrintOut From：=1， To：=1， Preview：=False， ActivePrinter：=“Microsoft Print to PDF”a = a + 8 ‘數字8是一頁的標籤數量，若你一頁排了4個標籤，就改成a = a + 4Next iEnd Sub

VBA程式碼

這個程式碼，很簡單，註釋我也寫的挺清楚的，使用應該沒啥問題。

若你的WPS沒有安裝VBA，可以從網上下個，在評論區我也貼個下載連結。excel自帶vba，不用下。

對於E9單元格，若不想看到數字，可以設定字的顏色為紙的顏色，比如”白色“。

最後，若你的表格上看不到“開發工具”，就是下圖中的最後那個。若有，點“宏”，即可看到“列印標籤”項。

開發工具

按下圖順序即可找到。檔案→選項→自定義功能區，勾選“開發工具”。WPS和Excel基本相同。

開發工具位置

如有錯誤，歡迎朋友們指正，以免誤人。

忘記了件事，印表機的名字在系統印表機和掃描器頁檢視，照抄填寫到程式碼裡即可。

檢視印表機名字