菜鸟问一段宏

Question

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"的产品拷出来,这段怎么写?

Answer 1

sub checkdb()
    If Cells(1, 1) Like "MAG" Then
        Debug.Print "aa"    
    else
        debug.print "bb"     '此处写入COPY到指定位置的代码
    End If
end sub

Answer 2

你把那个工作表复制一份，按“名称”排一下序，再把含“MAG”的那“一片数据”删除，不就搞定了吗？

Answer 3

Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$23").AutoFilter Field:=1, Criteria1:="=*MAG*",Operator:=xlAnd
Range("A2:A23").Select
Selection.Copy

Answer 4

如果是在数据库中，做一个SQL查询；如果是在EXCEL表中，就用6楼的。