1、首先打开excel程序,点击新建,新建空白工作簿。
2、使用快捷键Alt+F8, 这样就打开了宏新建页面,为宏起名字为test 如图,命名之后就可以点击创建,接下就是填写vba代码啦
3、将以下代码复制到输入框中,复制好后如图,这样程序就写完了哦,接下来就可以点击最小化回到表格界面,就可以使用写好的功能了Sub test() Columns("A:A").C泠贾高框opy Range("C1") Dim a As Long, b As Long a = Sheet1.Range("C65536").End(xlUp).Row b = Sheet1.Range("B65536").End(xlUp).Row Dim m As Long, n As Long For m = 1 To b For n = 1 To a If Sheet1.Cells(n, 3) = Sheet1.Cells(m, 2) Then Sheet1.Cells(n, 3) = "" End If Next Next Columns("C:C").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.Delete Shift:=xlUpEnd Sub
4、在A列中输入需要筛选的源数据,在B列中输入需要筛选掉的数据,快捷键Alt + F8龅歧仲半打开执行宏的界面, 选中刚才建好的test宏 如图,然后点击执行
5、在点击执行之后,在C列中可以得到A列数据减掉B列数据的结果。
6、最后就是保存了,保存时候一定要选择启用宏的工作簿的类型哦(如图),不然保存普通类型,下次打开宏就没了哦