试试看下面这段代码: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Count = 1 And Target.Row = 1 And Target.Column = 1 Then Range(Cells(2, 2), Cells(18, 6)).Select End If
End Sub
第2个回答 2019-09-06
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本回答被提问者采纳