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 |
如果你對現在不滿意...否則你就好好學,因爲你還只是菜鳥...