用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追答