如何用VBA从数据中提取出条件数据

1、通过一简单实例，来分享此种经验之方法。[从物料中提取出未盘点的物料编码]。

2、在工作表中，点击菜单栏【开发工具】，在其工具栏里，点击【visual basic】,进入VBA界面！

3、在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】！

4、会弹出[代码编辑窗口]！

5、在[代码编辑窗口]，输入如下代码。

Sub 物料盘点()

Dim rng As Range, rngs As Range, k%

k = 19

With Sheet1

For Each rng In .Range("a20:a27")

  For Each rngs In .[b20:b23]

    If rng = rngs Then GoTo 100

  Next

  k = k + 1

  .Cells(k, "c") = rng

100:

Next

End With

End Sub

6、点击工具栏[运行]按钮！

7、瞬间提取未盘点物料的编码！以小见大，触类旁通，处理庞大的数据，也可以这样做的！