删除单元格上的行范围单击-DeleteRangeofRowsonCellClick

0  

Try this one:

试试这个:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim firstRow As Long, lastRow As Long

    Application.EnableEvents = False
    On Error GoTo ErrorHandler


    If UCase(Target.Value) = "DELETE" Then
        'if target cell is in first row of sheet, we can't get row above
        firstRow = Application.Max(Target.Row - 1, 1)
        'if target cell is in last 19 rows of sheet, we can't get 19 rows below
        lastRow = Application.Min(Target.Row + 19, Rows.Count)

        Range(firstRow & ":" & lastRow).Delete Shift:=xlUp
    End If

ExitHere:
    Cancel = True
    Application.EnableEvents = True
    Exit Sub
ErrorHandler:
    Resume ExitHere
End Sub

As name of event Worksheet_BeforeDoubleClick suggests, it fires every time before double click on any cell.

作为事件名称Worksheet_BeforeDoubleClick建议,每次双击任何单元格之前它都会触发。

Put above code in Sheet module:

将以上代码放在Sheet模块中: