学帮网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/06/05 09:37:52
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
If Target.Column = 1 and Target.Row