怎样使用VBA查找单价?

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

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

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

4、在模块当中输入如下代码，然后运行

Sub 查找单价()

 

  Dim var As Variant, iRow As Integer

 

  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

 

  Loop

 

End Sub

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