【发布时间】:2019-05-30 04:12:58
【问题描述】:
我正在处理一个名为“Master Filtered”的工作表,其中 K 列的值应该用工作表“Ndex Positions”列 G 中的查找值填充。
这是我写的一段代码
Sub MTL_OR_TOR()
Dim AcctNb As String
Dim result As String
Dim myRange As Range
Dim lastrow As Long
lastrow = Worksheets("Master Filtered").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Master Filtered").Range("K3").Value = "MTL OR TOR"
Set myRange = Worksheets("Ndex Positions").Range("A2:G9000") 'Range in which the table MTL or TOR should be entered
For G = 4 To lastrow
AcctNb = Worksheets("Master Filtered").Cells(G, 3).Value
result = Application.WorksheetFunction.VLookup(AcctNb, myRange, 7, False)
Worksheets("Master Filtered").Range("K" & G).Value = result
Next
End Sub
但这似乎不起作用(“无法获取 WorksheetFucntion 类的 Vlookup 属性”)
我不知道我的错误是什么。如果这有帮助,当我在以下行中用数字 2 替换数字 7 时:“result = Application.WorksheetFunction.VLookup(AcctNb, myRange, 7, False)” 一切正常。但它从 B 列而不是 G 列获取值。这就是为什么我将 2 替换为 7(字母表中字母 G 的索引)。但是,这似乎不起作用。
如果您知道我的错误可能在哪里,请告诉我。
谢谢:)
【问题讨论】: