根据单元格值删除范围内的行

Question

我有 Q6:V100 范围内的员工数据。 数据不在表中，数据由 6 列（职务、职责、工资等）组成，基于第一列“当前受雇”，我想删除该员工不再受雇的行（= "")。 第一列显示“O”（如果使用）和“”（只是一个空白）如果没有。 这是我试过的代码。 但它显示错误消息

“范围类的自动过滤方法失败”

我不知道出了什么问题......如果有人能帮忙，我将不胜感激！

Sub Delete_Rows_Based_On_Value()

Dim ws As Worksheet


  Set ws = ThisWorkbook.Worksheets("Trainings")
  ws.Activate

  'Clear any existing filters
  On Error Resume Next
    ws.ShowAllData
  On Error GoTo 0

  '1. Apply Filter
  ws.Range("Q6:V100").AutoFilter Field:=1, Criteria1:=""

  '2. Delete Rows
  Application.DisplayAlerts = False
    ws.Range("Q7:V100").SpecialCells(xlCellTypeVisible).Delete
  Application.DisplayAlerts = True

  '3. Clear Filter
  On Error Resume Next
    ws.ShowAllData
  On Error GoTo 0

End Sub

Answer 1

我会建议一个更强大的系统，在 Q 列中有一个符号说明：1 = 受雇，0 = 未受雇

Sub Delete_Rows_Based_On_Value()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Trainings")
    ws.Activate

Dim i As Integer
Dim n as Integer

    n = ws.Range("Q6").CurrentRegion.Rows.Count

    For i = n + 5 To 6 Step -1
        If ws.Cells(i, 17).Value = 0 Then
            ws.Rows(i).Delete
        End If
    Next i

如果您不适应新系统，请更改 If 语句以匹配您当前的系统：

If ws.Cells(i, 17).Value = "" Then