怎样使用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调出运行宏窗口，然后单击“执行”按钮，“单价”列将产生对应的单价