Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 2 ThenCells(Target.Row,Target.Column + 1) = Cells(Target.Row,Target.Column + 1) + 1End IfEnd Sub请问If Target.Column = 1 Then A列如何写成A1:A10

来源：学生作业帮助网编辑：作业帮时间：2024/05/03 20:20:01

Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 2 ThenCells(Target.Row,Target.Column + 1) = Cells(Target.Row,Target.Column + 1) + 1End IfEnd Sub请问If Target.Column = 1 Then A列如何写成A1:A10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Cells(Target.Row,Target.Column + 1) = Cells(Target.Row,Target.Column + 1) + 1
End If
End Sub
请问If Target.Column = 1 Then A列如何写成A1:A10