为邮件合并生成号码列表

试图打印很多标签，我需要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