Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target(1, 1).Column = 1 And Target(1, 1) <> "" Then
With Sheets("B")
.Select
.[a:a].Find(Target, , , 1).Offset(0, 2).Select
End With
End If
End Sub
本回答被提问者采纳
第3个回答 2020-01-08
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$A$1" Then Range("B2:F18").Select Else End If End Sub追问