- ©«¤l
- 193
- ¥DÃD
- 29
- ºëµØ
- 0
- ¿n¤À
- 222
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows7
- ³nÅ骩¥»
- OFFICE2013
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-9-18
- ³Ì«áµn¿ý
- 2023-4-29
|
¦^´_ 3# ã´£³¡ªL
³o¼Ë³o¦æªº·N«ä·|Åܦ¨°²¦pAÄæ¦ì¨S¦³AAA ´N§R±¼¶Ü?
§Ú¶]µ{¦¡®É...Åܦ¨¥þ³¡§R¥ú¥ú@@
§Ú·Qªí¹Fªº·N«ä¬O...«O¯d¦p¤UÃöÁä¦rªº³¡¤À ¨ä¾l¤Ï¶À³¡¤À§R°£..
- For i = .Range("A65536").End(xlUp).Row To 2 Step -1
- If Not .Cells(i, "A") Like "*AAA*" Or _
- Not .Cells(i, "A") Like "*BBB*" Or _
- Not .Cells(i, "A") Like "*CCC*" Or _
- Not .Cells(i, "A") Like "*DDD*" Or _
- Not .Cells(i, "A") Like "*EEE*" Or _
- Not .Cells(i, "A") Like "*FFF*" Then
- .Rows(i).Delete
- End If
- Next
½Æ»s¥N½X |
|