怎么样实现excel中输入一个数字，自动变成某个公式的值

怎么样实现excel中输入一个数字，自动变成某个公式的值

用宏: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 = TrueEnd 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" 在这个时候，就是用粘贴/下拉方法改变多个单元格，也可以把你定义的范围，按要求的公式改动。