添加一个命令按钮,按钮代码见下
Private Sub CommandButton1_Click()
TMP = [B2]
[B2] = Left(TMP, 3) & Val(Right(TMP, Len(TMP) - 3)) + 1
End Sub
其中的[B2]请修正为实际的单元格
按钮属性中将打印对象前的勾去掉就可以不被打印出来.
可以设置个快捷键，那样就方便了
