公式做不到,vba实现如下,不过局限性比较多,用公式加辅助列实现比较好 A列输入加计算 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Count =

1 Then If Mid(Target.Address, 2, 1) = "A" And Target.Value <> "" Then Range(Target.Address) = Target.Value * 5 +

2 End If End If Application.EnableEvents = True End Sub