Excel-点击单元格,选中单元格开始往下所有不为空的行

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.End(xlDown).Row < 65535 Then
        Range(Cells(Selection.Row, Selection.Column), Cells(Selection.End(xlDown).Row, Selection.Column)).Select
    End If
End Sub

你可能感兴趣的:(Excel-点击单元格,选中单元格开始往下所有不为空的行)