VBA運行時錯誤'1004'：對象'_Global'的方法'Range'失敗

Question

我正在嘗試從一個工作簿中獲取一個單元格值，並查找它是否出現在另一工作簿的列中，並返回“是”或“否”的答案。 我認為最好的方法是“相交”命令。 我收到對象“全局”失敗的“方法”范圍”錯誤。

任何的建議都受歡迎。

' Next part puts a "Yes" or "No" in PHO column
' based on one-at-a-time comparison of new keys in column Y
' against Column C of today's PHO report
Dim RowCount As Long
Dim CurrentPHO As Workbook
Dim TodaysDate As String
Dim PHOCompare As Range
Dim CurrentRow As String
Dim CellCounter As Range

TodaysDate = Format(Date, "m-d-yyyy")

Set CurrentPHO = Workbooks.Open("\\netapp02\ProcurementDocs$\PHO\PHO " & TodaysDate & ".xlsx") 'This Opens and defines today's PHO report
Set PHOCompare = CurrentPHO.Worksheets("Detail").Range("C:C")


For RowCount = 2 To LastRow
    Set CellCounter = Workbooks("IBUT 11-4-14.xlsx").Sheets("Sheet1").Range("Y" & RowCount)
    If Not Intersect(CellCounter, Range(PHOCompare)) Is Nothing Then
        Range("K" & RowCount).Value = "No"
            Else: Range("K" & RowCount).Value = "Yes"
    End If
Next RowCount

Answer 1

Dim RowCount As Long
Dim CurrentPHO As Workbook
Dim TodaysDate As String
Dim PHOCompare As Range
Dim CurrentRow As String
Dim CellCounter As Range
Dim FoundCell As Range

TodaysDate = Format(Date, "m-d-yyyy")

Set CurrentPHO = Workbooks.Open("\\netapp02\ProcurementDocs$\PHO\PHO " & TodaysDate & ".xlsx") 'This Opens and defines today's PHO report
Set PHOCompare = CurrentPHO.Worksheets("Detail").Range("C:C")


For RowCount = 2 To LastRow
    Set CellCounter = Workbooks("IBUT 11-4-14.xlsx").Sheets("Sheet1").Range("Y" & RowCount)

Set FoundCell = PHOCompare.Find(CellCounter.Value)
    Range("K" & RowCount).Value = IIf(IsEmpty(FoundCell), "No", "Yes")
Set FoundCell = Nothing

Next RowCount