爲郵件合併生成號碼列表

Question

試圖打印很多標籤，我需要在Excel中的列A來讀取類似的東西。

EH001` 
EH001 
EH001 
EH001 
EH002 
EH002 
EH002 
EH002 
EH003....... 

我需要爲數千個樣本做這件事，最簡單的方法來產生這個列表是什麼？

Answer 1

嘗試是這樣的：在短期內我做了一個向下拖動列表

Dim NextRow As Long 
NextRow = Thisworkbook.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlup).Row + 1 

For i = 1 To 10000 'or however many you need 
    If i < 10 Then 
     Range("A" & NextRow).Value = "EH00" & i 
    ElseIf i >= 10 And i < 100 Then 
     Range("A" & NextRow).Value = "EH0" & i 
    ElseIf i >= 100 And i < 1000 Then 
     Range("A" & NextRow).Value = "EH" & i 
    End If ' You can go on like this for as much as you need. 
Next i