0
为什么我收到错误“无法获取WorksheetFunction类的VLookup属性”?在这里发生错误:Seg = Application.WorksheetFunction.VLookup(Code, rng, 2, False)
为什么我的VLookup无法正常工作?
Sub RateCode()
Dim I As Long
Dim endRow As Long
Dim Rate_Code() As Variant
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim rng As Range
Dim Seg As String
Set ws2 = Worksheets("Segment")
Set ws = Worksheets("Sheet1")
Set rng = ws2.Range("A1:B1300")
With ws
endRow = Sheet1.Range("A999999").End(xlUp).Row
endRow = endRow
Rate_Code = Sheet1.Range("F3:F" & endRow)
For I = LBound(Rate_Code) To UBound(Rate_Code)
Code = Rate_Code(I, 1)
If Len(Code) = 5 Then
Code = "'" & Mid(Code, 3, 2)
Cells(I + 2, 7).Value = Code
Else
Code = "'" & Left(Code, 2)
Cells(I + 2, 7).Value = Code
End If
Seg = Application.WorksheetFunction.VLookup(Code, rng, 2, False)
Seg = Cells(I + 2, 8).Value
Next I
End With
End Sub
且您已经查看[这些](https://stackoverflow.com/search?q=Unable+to+获得+ + +的工作表+功能+级)的+ VLOOKUP +物业+? – pnuts
@pnuts我已经看过这些答案,但我仍在挣扎。 – Anthony
@Anthony请检查'代码'(查找值)是否返回或不在vlookup中并将值存储在'seg'中 - 尝试将查找值存储在单元格中 – Ashok