Vlookup VBA自动化

Question

我是VBA编程的初学者，我想创建一个按钮来帮助我从column A的{​​{1}}中搜索产品的价格，并从{ {1}}，同一工作簿的sheet1。

我使用的sheet2公式是：

column D

我的问题是我有超过100000种产品，我想使用一个按钮来简化该过程。

Answer 1

将您的第一行公式更改为=VLOOKUP(A2;sheet2!$A$2:$G$712;4)，选择要在其中公式化的单元格，然后使用输入公式的单元格右下角的小方块将公式向下拖动。

Answer 2

如果您想完全在VBA中完成此操作，则可以使用

自动填充

Dim source As Range("A1")
Dim destination As Range("A1:A10")
source.AutoFill Destination:=destination

例如，这将从A1自动填充到A10。您还可以使用“类型”指定自动填充类型：

Dim source As Range("A1")
Dim destination As Range("A1:A10")
source.AutoFill Destination:=destination Type:=xlFillLinearTrend

默认类型为xlFillDefault，它将尝试自动查找图案并使用相应的填充类型。可以查询其他类型的here。