Question

我对VBA完全陌生。我尝试在我的电子表格中录制一个使用VLOOKUP函数的宏，但结果发现VLOOKUP记录不起作用。

我有一个正常工作的电子表格，我正在比较列中的值＆＃34;材料＆＃34;使用不同的工作簿，就像所有材料及其各自程序的数据库一样。材料编号在数据库中匹配的程序将记录在＆＃34;程序＆＃34;在工作电子表格中。我使用VLOOKUP来做到这一点，但我很难为它提出一个宏。

根据建议，我做了以下事项：

ActiveCell.FormulaR1C1 = "'Program"

Range("K41").Select

ActiveCell.Formula = "VLOOKUP(D41,"'C:\Users\Username\Desktop[Database.xlsx]Sheet1!R1C1:R152289C4,4,FALSE)"

但它仍然没有填充＆＃34;程序＆＃34;柱。我做错了什么？

Answer 1

vlookups的确切行可以通过两种方式完成;

1）这在编码环境中进行了vlookup，使其变得更加动态

application.worksheetfunction.vlookup(worksheets("Material").range("A2"), worksheets("Program").range("A1:F10"),4,0)

2）在单元格中制作vlookup

的公式

range("c2").select
activecell.formula = "=vlookup(A1,Material!A1:F10,4,0)"

然后使用环境填写。

Maudise

Answer 2

非常感谢所有花时间解决我问题的人。我接受了建议，玩了公式，这就是我得到的：

= VLOOKUP（$ D41，'C：\ Users \ Username \ Desktop [Database.xlsx] Sheet 1'！$ A $ 1：$ B $ 40973,2，FALSE）

正是我想要它做的！再次感谢！

VLOOKUP的VB代码

2 个答案: