1 MAG- 903 0056-3
2 MAG- 903 0052-2
3 MAG- 903 0056-2
4 MAG- 901 2667-4
5 HFA107048-6
6 HFA 107 240-3
7 MAG- 903 0051-3
8 HFA 107 244-16
9 HFA 107 374-2
10 MAG- 903 0039-1
11 HFA 107 130-2
12 MAG- 901 2674-1
13 MAG- 903 0056-2
14 MAG- 901 2667-4
15 HFA 107 048-1
16 HFA 107 048-6
17 HFA 107 241-3
18 MAG- 901 2560-1
19 HFA 107 240-3
20 MAG- 903 0056-3
21 MAG- 903 0052-2
22 MAG- 903 0056-2
这是一个单位的产品名称表, 我要把产品号里所有没有"MAG-XXXXX"的产品拷出来,这段怎么写?
2 MAG- 903 0052-2
3 MAG- 903 0056-2
4 MAG- 901 2667-4
5 HFA107048-6
6 HFA 107 240-3
7 MAG- 903 0051-3
8 HFA 107 244-16
9 HFA 107 374-2
10 MAG- 903 0039-1
11 HFA 107 130-2
12 MAG- 901 2674-1
13 MAG- 903 0056-2
14 MAG- 901 2667-4
15 HFA 107 048-1
16 HFA 107 048-6
17 HFA 107 241-3
18 MAG- 901 2560-1
19 HFA 107 240-3
20 MAG- 903 0056-3
21 MAG- 903 0052-2
22 MAG- 903 0056-2
这是一个单位的产品名称表, 我要把产品号里所有没有"MAG-XXXXX"的产品拷出来,这段怎么写?
解决方案 »
- 在VB編寫程序如何追加到以有的EXCEL文件中呢
- 一个程序被客户下载之后怎么让它只运行在客户端的局域网的服务器的机子上,不能运行在其它的机器上,怎么办?
- ado中如何使用index属性.
- 一道衡量高手价值的题目,还有我会给高分想送,至少200,我智商低,难过,请您们帮我
- 怎样用vb访问远程的oracle数据库?
- 一个安装程序问题(急啊!!!参与就该分,一定!)
- 100分的问题,值不值呀,大家看这个问题是咋回事?
- 对vb数据库开发的分层等设计模式感兴趣的,请进来讨论讨论
- 为何在API阅览器里看不到registerserviceprocess这个函数的声名?
- 请教SQL查询
- VB 发送邮件,只调用API如何实现
- vb.net winForm中有一个datagrid 当我把鼠标移动到第3列的时候在鼠标旁边出现一个提示
If Cells(1, 1) Like "MAG" Then
Debug.Print "aa"
else
debug.print "bb" '此处写入COPY到指定位置的代码
End If
end sub
ActiveSheet.Range("$A$1:$A$23").AutoFilter Field:=1, Criteria1:="=*MAG*",Operator:=xlAnd
Range("A2:A23").Select
Selection.Copy