宏刪除列，如果匹配得到錯誤

Question

我如果找到匹配刪除表「YYY」的匹配單元的整行從柱A片「XXX」值表「YYY」的柱A searhing值

我得到object required在這條線FindValues(i, 1).Row.Delete我已經beeen特林現在糾正這一段時間，但沒有

感謝 編輯：更新

Sub FindReplace_Updated_Blanks() 
Dim FindValues As Variant, SearchValues As Variant 
Dim wsSource As Worksheet, wsTarget As Worksheet 
Dim sLR As Long, tLR As Long, i As Long 

Set wsSource = ThisWorkbook.Worksheets("XXX") 
Set wsTarget = ThisWorkbook.Worksheets("YYY") 

      sLR = wsSource.Range("A" & wsSource.Rows.Count).End(xlUp).Row 
      tLR = wsTarget.Range("A" & wsSource.Rows.Count).End(xlUp).Row 
SearchValues = wsSource.Range("A2:A" & sLR).Value 
    FindValues = wsTarget.Range("A2:A" & tLR).Value 

    For i = LBound(FindValues) To UBound(FindValues) 
      If Not IsError(Application.match(SearchValues(i, 1), wsTarget.Range("A2:A" & tLR), 0)) Then 
       wsTarget.Rows(i + 1).Delete 
      End If 
    Next i 
End Sub 

Answer 1

更改它：

Sheets("YYY").Rows(i + 1).Delete 

由於您的範圍以靜態「2」開頭，因此不需要使用範圍來查找該行。