Excel 2003中如果利用宏使单元格中数字加

来源：百度知道 编辑：UC知道 时间：2024/05/27 06:26:59
Excel电子表格中假设B2数值为2001；E2数值为3001；E3数值为4001。
如果制作一个宏，使每运行一次宏就使以上3个单元格的数值增加1
如第一次B2=2002；E2=3002；E3=4002
第二次B2=2003；E2=3003；E3=4003
非常感谢qinqh_yl的帮助，我已经试过了，很好用。我想再请教下如果我只想改变B2，或者B2采用Z1的单元格格式而E2、E3则采用Z2的单元格格式又该如果做？

你试一下这个宏:
Sub Macro1()
Range("Z1").Select
ActiveCell.FormulaR1C1 = "1"
Range("Z1").Select
Selection.Copy
Range("B2,E2,E3").Select
Range("E3").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Range("Z1").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
End Sub

其实你自己按要求录制一个宏就可以了。
我是在某个空白单元格（Z1）输入1，再“复制”，选定你要加1的单元格，点右键“选择性粘贴”，选中“加”，点“确定”，再删除Z1单元格。
如果你只要B2加1，粘贴时只选B2即可。
如果要复制格式，在“选择性粘贴”时选中“格式”即可。