求大神帮我写个WPS表格的VB代码

Question

A1单元格内容发生变化，当内容为“1”时，则A2=“2”；内容为“2”时，则A3=“4”，并且之后A2可以不受A1影响，修改成其它内容。
要求在A1内容没有发生变化时，代码不会重复执行。

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then
If Target.Value = 1 And [A2] = "" Then
[A2] = "2"
ElseIf Target.Value = 2 And [A3] = "" Then
[A3] = "4"
End If
End If
End Sub本回答被提问者采纳