Question

获取查询表C列中保留的所有值，并在OperationsSheet的F列中查找它们。如果找不到它们，我想删除查询表中的整行。现在我在var行上返回一个错误，该方法'对象'工作表范围失败，当我调试它时，它位于Operationssheet.range部分。非常感谢任何帮助。

Sub Tryingagain()
Dim OperationsBook As Workbook
Dim OperationsSheet As Worksheet
Dim Caixa As Workbook
Dim Query As Worksheet
Dim SearchRange As Range
Dim LastRowOpps As Long
Dim LastRowSearch As Long
Dim var As Variant
Dim bln As Boolean

Set OperationsBook = Workbooks("Operations")
Set OperationsSheet = OperationsBook.Worksheets("OPERATIONS")
Set Caixa = Workbooks("Novo Email - Caixa Offshore")
Set Query = Caixa.Worksheets("Query PRÉ")
LastRowOpps = OperationsSheet.Cells(Rows.Count, "F").End(xlUp).Row
LastRowSearch = Query.Cells(Rows.Count, "C").End(xlUp).Row
Set SearchRange = OperationsSheet.Range("F7:F" & LastRowOpps)
For i = 2 To LastRowSearch
bln = False
var = Application.Match(Query.Range("C" & i),        OperationsSheet.Range(SearchRange), 0)
If Not IsError(var) Then
    bln = True
Exit For
End If
If bln = False Then
    Query.Rows(i).EntireRow.Delete
End If
Next i
End Sub

Application.Match错误与搜索范围

0 个答案: