如何修復 VBA 中的 vlookup 工作表屬性錯誤

Question

我有以下代碼，運行時會在“If strF = Qualified ”行返回錯誤 1004“無法獲取 WorksheetFunction 類的 Vlookup 屬性”。 請指導如何修復。 提前致謝。

Sub Geo()

Dim i As Long
Dim strB As String, strF As String, strResult As String

For i = 1 To 100

With ActiveSheet
strB = .Cells(i, 2).Value2
strF = .Cells(i, 6).Value2
End With

If strB = vbNullString Then
strResult = vbNullString

Else
If strF = "Qualified" Then
strResult = Application.WorksheetFunction.VLookup(Range("B3"), Sheets("Pipeline Master").Range("B6:T3000"), 6, False)**

On Error Resume Next
strResult = Application.WorksheetFunction.VLookup(Range("B3"), Sheets("2019-Wins&Losses").Range("A7:M5000"), 2, False)

On Error Resume Next
strResult = Application.WorksheetFunction.VLookup(Range("B3"), Sheets("PipelineHistory").Range("C3:G15934"), 5, False)

On Error Resume Next

strResult = " "
On Error GoTo 0

End If
End If

ActiveSheet.Cells(i, 11).Value2 = strResult
Next i

End Sub

Answer 1

為什么這行代碼末尾有兩個** strResult = Application.WorksheetFunction.VLookup(Range("B3"), Sheets("Pipeline Master").Range("B6:T3000"), 6, False) ? 我試了一下，效果很好。

編輯：如果它仍然不適合您，可以嘗試使用.formula屬性。

With ThisWorkbook.Worksheets("Pipeline Master").Range("B3")
    .Formula = "=VLOOKUP(""Qualified"",B6:T3000,6,FALSE)"
    .Value = .Value
End With