怎样使用VBA查找单价?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Sub 查找单价() Dim var As Var坡纠课柩iant, iRow As Int髫潋啜缅eger iRow=3 Do Until IsEmpty(Cells(iRow, 1)) var=Application.Match(Cells(iRow, 2), Sheets("单价表").Columns(1), 0) If Not IsError(var) Then Cells(iRow, 4).Value=Sheets("单价表").Cells(var, 2).Value End If iRow=iRow+1 LoopEnd Sub

5、利用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，“单价”列将产生对应的单价