使用 VBA 查找

Question

我有一本工作簿，其中包含我要添加到 word 中的信息。 现在我需要添加一个必须使用 vlookup（或索引匹配）找到的 txt

我的代码无法运行，6 小时后我快要放弃了，但希望你们能帮助我。

代码是：

wrdApp.Selection.TypeText Text:=(Application.Function.VLookup(Cells((RowNo + i), ColumnForLevel2Text).Value, sectionT.Range("ab1:ac5"), 2, 0))

我的 Vba 代码放在另一个工作簿中。但到目前为止，这还不是问题。

我想在单元格(Range((RowNo + i), ColumnForLevel2Text)中查找文本

我想在同一工作簿的另一张工作表中查找 range("ab1:ac5")，称为 sectionT。

我的文本可能是 1.1，我希望将文本“结果”输入到 word 中。

问候 彼得

Answer 1

我不确定我是否有一切可以解决您的问题，但我可以帮助您将问题拆分为更易于管理的部分。如果你这样写代码：

Dim LookupValue, TableArray, OutputText

LookupValue = Cells((RowNo + i), ColumnForLevel2Text).Value
Set TableArray = sectionT.Range("ab1:ac5")
OutputText = Application.WorksheetFunction.VLookup(LookupValue, TableArray, 2, 0)

wrdApp.Selection.TypeText Text:=OutputText

您可以一步一步地跟踪它，看看哪里出了问题。这里最大的问题是你写的是Function而不是WorksheetFunction。