
VBA
如果一定要做到,那只能用宏来处理了。 -------------补充回答:按Alt-F11,进入VBA编辑器,按Ctrl-R打开工程资源管理器面板,双击左边的工作表名(你那个A1所在的工作表),最后在右边的空白处贴上如下代码,即可。
Public a As Integer
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row() = 1 And Target.Column() = 1 And a = 0 Then a = 1 Range("A1").Value = Range("A1").Value * 2 a = 0 End IfEnd Sub
注意:“Target.Row() = 1 And Target.Column() = 1”是判断你修改的单元格是不是第1行第1列(也就是A1),如果你是其他单元格,则改一下这里的数值。 还有“Range("A1")”也是一样的。 ---------再补充:昏倒了,我的办法适用于日常、在少量单元格上的重复操作。 大量的、一次性的操作,当然用一楼的办法最快了。你只要选中所有你要*2的单元格,再做“选择性粘贴”的动作就可以全部搞掂了。
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号