用宏:
Private Sub Worksheet_Change(ByVal Target As Range)
Change_Range = "$A:$A"
If Intersect(Target, Range(Change_Range)) Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each c In Intersect(Target, Range(Change_Range))
If IsNumeric(c) Then c.Value = c * 5 + 2
Next c
Application.EnableEvents = True
End Sub
把你想要进行此操作的单元格范围放在:
Change_Range = "$A:$A"
如:
Change_Range = "$A$1"
或:Change_Range = "$A$1:$B$2"
或:Change_Range = "$A$1,$B$2"
或:Change_Range = "$A$1,$B$2,$C$3"
或:Change_Range = "$A:$A,$B$2,$C$3"
在这个时候,就是用粘贴/下拉方法改变多个单元格,也可以把你定义的范围,按要求的公式改动。
温馨提示:答案为网友推荐,仅供参考