vba - 删除不等于组合框值的行？

Question

我正在尝试删除不等于所选组合框值的行。我有以下代码，但我得到一个运行时错误 424 Object required。有人可以帮忙吗？

Dim wkss As Worksheet, wkJob As Worksheet
Dim i As Long
Set wkss = Sheets("TempWs6")
Set wsJob = Sheets("Job")

wkss.Select

For i = Cells(Rows.Count, 10).End(xlUp).Row To 1 Step -1
    If Cells(i, 10) <> wsJob.ComboBox1.Value Then
        wkss.Rows(i).Row.Delete
    End If
Next i

非常感谢!

Answer 1

要删除一行，您可以使用 EntireRow :
wkss.Rows(i).EntireRow.Delete应该这样做!

(对于它的值(value)，删除整个列也是如此，请使用 EntireColumn.Delete )

编辑:让我们通过 assigning parentage 清除范围和选择与 With陈述。

Dim wkss As Worksheet, wkJob As Worksheet
Dim i As Long
Set wkss = Sheets("TempWs6")
Set wsJob = Sheets("Job")

With wkss

For i = .Cells(.Rows.Count, 10).End(xlUp).Row To 1 Step -1
    If .Cells(i, 10) <> wsJob.ComboBox1.Value Then
        .Rows(i).EntireRow.Delete
    End If
Next i
End With

.Cells([...]).Row to 1 Step -1这样做:从你的最后一行开始(你从 ...(xlUp).Row 获得)，运行下面的代码，然后“步进”一行，然后再次运行，重复直到你到达行 1 .