1、实例【sheet5中A列的数据需要处理,处理完毕的数据在sheet6中,请将未处理的数据筛选出,置入sheet4工作表的A列?】
2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visual basic】!
3、会进入VBA编辑界面!点击菜单栏【插入】,在其下拉菜单中,选择【模块】!
4、会弹出模块编辑窗口!
5、在代码编辑窗口输入以下代码:Sub 选出未处理的数值()Dim i%, j%, k%, a As Range, b As RangeSheets("sheet5").SelectFor 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:NextEnd Sub
6、在VBA窗口,点击【运行】按钮!或按F8键!
7、未处理的数据瞬间被列出了!