VBS 在Excel里找到并删除符合条件的数据

 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Function DelectDate()     on error resume Next     Dim oExcel,oWb,oSheet,count,RowsCount,name,t,s,i     count=0     t=0     Set oExcel= CreateObject("Excel.Application")     Set oWb = oExcel.Workbooks.Open("C:\2.xls")     '设置第一个sheet为当前Excel的活动表格     Set oSheet = oWb.Sheets(1)     '获取当前Excel表格总共多少行     RowsCount=oSheet.UsedRange.Rows.Count     for i=2 to RowsCount         name =oSheet.range("B"&i).Value         if (left(name,2)<>"杨航" and name<>"818978") Then             oSheet.range("A"&i).Value=i-1             count=count+1         else             t=t+1             oExcel.ActiveSheet.Rows(i).Delete             i=i-1         end If         If (i+t)=RowsCount Then             msgbox "您好！经过筛选，最终Excel符合要求的数量是："&count             '避免excel自动保存时弹出提示框 resume.xlw 文档是否覆蓋?             oExcel.DisplayAlerts = False             'Excel自动保存             oExcel.Save()             oExcel.Quit         End If     next End Function