按Alt+F11，開啟VBA編輯器，插入一個模組，把下面的程式碼貼進去，按F5執行

Sub 宏1()

yy = [B1] '列印份數

For i = 1 To yy

ActiveWindow.SelectedSheets.PrintOut Copies:=1

[A1] ="001"& Application.Text(Right([A1], 4) + 1, "0000")

Next

End Sub

這是因為Excel有時候把你的填寫的1理解為序列的起點，有時候把你的填寫的1理解為普通數值。

如果你希望填寫的數值自動增加，我的建議是寫好數值序列的前2個數字，然後全部選中後再下拉，確保Excel能明白你要輸入數值序列。

或者你先手動把準備輸入的數值序列設定在自動填充序列裡面，方法可以參考下面的圖片

匯入之後，只要你寫序列的第一個文字，後續複製時Excel會自動按序列處理的。

例如你寫入甲，然後下拉複製的時候，Excel會自動寫上乙、丙、丁。