刪除不等於組合框值的行嗎？

Question

我想刪除不等於選定的組合框值的行。我有下面的代碼，但我得到一個運行時錯誤424對象所需。任何人都可以協助

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應該這樣做！

（對於它的價值，同樣也適用於除一整列，使用​​）

編輯：讓我們清理的範圍和選擇，通過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。