自动根据excel的某一列单元格的值计算，并将计算的结果给同行的下一列单元格赋值

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 13 And Target.Row > 1 Then Target.Offset(0, 1) = Target.Value * 5 End If End Sub

>>阅读原文<<