EXCEL 单元格数字自动递增且打印的方法。比如一个英文数字序列号HRC12345678；按一下打印一次再自动加一
我需要达到的效果是打印当前序列号并且再加一，如：HRC12345678加一成HRC12345679；要先打印再加一。如果能一次打印想要的张数最好，比如打10张，每张序列号都在前者的基础加一,一次打印完。
用VBA来做
Sub 宏1()
Dim i As Integer
For i = 1 To 10 '循环运行10次
Dim str1 As String
str1 = Cells(1, 1) '得到单元格内的编号字符串
Dim str2 As String
str2 = Right(str1, 8) '得到字符串的数字部分
str2 = Int(str2) + 1'数字加1
str1 = "HRC" + str2'得到最终字符串
Cells(1, 1) = str1'把最终字符串写入单元格
ActiveSheet.PrintOut '打印
Next
End Sub追答
Sub 宏1()
Dim i As Integer
For i = 1 To 10 '循环运行10次
Dim str1 As String
str1 = Cells(1, 1) '得到单元格内的编号字符串
Dim str2 As String
str2 = Right(str1, 8) '得到字符串的数字部分
str2 = Int(str2) + 1'数字加1
str1 = "HRC" + str2'得到最终字符串
Cells(1, 1) = str1'把最终字符串写入单元格
ActiveSheet.PrintOut '打印
Next
End Sub追答
ok
温馨提示：答案为网友推荐，仅供参考
第1个回答 2016-06-11
要用VBA来做追问
谢谢您的回答。但是我知道要代码。我问的事怎么实现我想要的效果。具体怎么写怎么做
追答哦，我看你的问题只是问“方法”，没问代码。那我理解错了。。。。
相似回答