如何利用VBA代码快速筛选出剩余未处理的数据？

1、实例【sheet5中A列的数据需要处理，处理完毕的数据在sheet6中，请将未处理的数据筛选出，置入sheet4工作表的A列？】

2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

4、会弹出模块编辑窗口！

5、在代码编辑窗口输入以下代码：

Sub 选出未处理的数值()

Dim i%, j%, k%, a As Range, b As Range

Sheets("sheet5").Select

For i = 1 To Application.CountA(Range("a:a"))

Set a = Cells(i, 1)

Sheets("sheet6").Activate

  For j = 1 To [a1].CurrentRegion.Rows.Count

  Set b = Cells(j, 1)

    If a = b Then

      GoTo 100

    End If

  Next

  Sheets("sheet5").Select

  k = k + 1

  Cells(i, 1).copy Sheets("sheet7").Cells(k, 1)

100:

Next

End Sub

6、在VBA窗口，点击【运行】按钮！或按F8键！

7、未处理的数据瞬间被列出了！