Excel VBA：錯誤1004 WorkSheetFunction'無法獲取Vlookup屬性“

Question

試圖在Excel 2010中快速編寫一個VBA

• 使用Vlookup查找值
• 返回第3列中的值
• 將給定單元格設置為此值

我的困難在於公式。

Sub Metrics123()
    Dim x As Integer        
    x = Application.WorksheetFunction.VLookup("Test", "A7:D9", 3, False)
    Range("A1").Value = x    
End Sub

當我運行這個時，我點擊了error 1004: 'Unable to get the Vlookup Property of the WorksheetFunction

任何指針贊賞！

Answer 1

兩種方式適合你。

1）使用.Formula屬性：

With ThisWorkbook.Worksheets("Sheet1").Range("A1")
    .Formula = "=VLOOKUP(""Justin"",A7:D9,3,FALSE)"
    .Value = .Value
End With

其中.Value = .Value用它的結果重寫公式

2）使用帶有Range("A7:D9") Application.VLookup代替"A7:D9" ：

Dim x
With ThisWorkbook.Worksheets("Sheet1")
    x = Application.VLookup("Justin", .Range("A7:D9"), 3, False)
    Range("A1").Value = x
End With

注意， x應該是Variant ，因為如果沒有找到， Application.VLookup將返回Error 2042 （ Error 2042 #N/A ）