æçå·¥ä½è¡¨æ ç¾å»å³é®ï¼æ¥ç代ç
å¨ä»£ç çªå£ä¸ç²è´´ä»¥ä¸ä»£ç
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
tmp = Cells(Target.Row, 2).Value
tmp = Cells(Target.Row, 1).Value + tmp
Cells(Target.Row, 2).Value = tmp
End If
End Sub
æF5è¿è¡ä»£ç å³å¯