[µo°Ý] ¦r¦ê¤¤¨S¦³¥]§t¬Y¦r¤¸¥Îªk

v03586

¥­®É§Ú­Ì¼gVBA ­n§ä¥XÃöÁä¦r¥Îªk³£·|¥ÎLike

1. If .Cells(i, "A") Like "*AAA*"  Then
   
2. .Rows(i).Delete

½Æ»s¥N½X

AÄæ¦ì ¦³AAA¦r¦ê«h§R°£

¦pªG§Ú­n§ï¦¨ ¦pªGAÄæ¦ì ¦³AAA¦r¦ê«O¯d

¨ä¾l¨S¦³ªº§R°£«ç»ò¼g©O??

If .Cells(i, "A") Like "*AAA*"  Then
¤U¤@¬q???? ¨ä¾l§R°£

Kubi

¦^´_ 1# v03586
±N
If .Cells(i, "A") Like "*AAA*"  Then
§ï¬°
If InStr(.Cells(i, "A").Value, "AAA") = 0 Then

¥ÎInStr¨ç¼Æ¡A¥i°µ¬°¦r¦ê¤ñ¹ïªº§PÂ_¡G
­Y§PÂ_¦¡µ¥©ó0ªí¥Ü¨S¦³²Å¦X¸ê®Æ¡A¤Ï¤§(<>0)«hªí¥Ü¦³²Å¦Xªº¸ê®Æ

InStr¨ç¼Æªº¨Ï¥Îªk½Ð°Ñ·ÓVBAªº©x¤è»¡©ú

­ã´£³¡ªL

Like §PÂ_µ²ªG¬° True ©Î False,
¤Ï¦V, «h¥i§ï¬°
If .Cells(i, "A") Like "*AAA*" = False  Then .Rows(i).Delete
©Î
If Not .Cells(i, "A") Like "*AAA*"  Then .Rows(i).Delete

¥­±`²ßºD¥Î InStr , ¨ä¥Îªk»P¤u§@ªí¨ç¼Æ Find Ãþ¦ü, ¥u¬O¨ä°Ñ¼Æ¬Û¤Ï:
=Find(ÃöÁä¦r, ³Q¤ñ¹ï¦r¦ê)
SS = InStr(³Q¤ñ¹ï¦r¦ê, ÃöÁä¦r)

Like ¥t­Ó¦n³B, ¥i¥H§ó¦h¤è¦¡¼Ò½k¤ñ¹ï,
¨Ò¦p:
"AAA*"
"*AAA"
"AAA*B"

v03586

¦^´_ 3# ­ã´£³¡ªL


    ³o¼Ë³o¦æªº·N«ä·|Åܦ¨°²¦pAÄæ¦ì¨S¦³AAA ´N§R±¼¶Ü?
§Ú¶]µ{¦¡®É...Åܦ¨¥þ³¡§R¥ú¥ú@@
§Ú·Qªí¹Fªº·N«ä¬O...«O¯d¦p¤UÃöÁä¦rªº³¡¤À  ¨ä¾l¤Ï¶À³¡¤À§R°£..

¤U¸ü (6.85 KB)

2016-4-17 11:33

1.      For i = .Range("A65536").End(xlUp).Row To 2 Step -1
   
2.         If Not .Cells(i, "A") Like "*AAA*" Or _
   
3.            Not .Cells(i, "A") Like "*BBB*" Or _
   
4.            Not .Cells(i, "A") Like "*CCC*" Or _
   
5.            Not .Cells(i, "A") Like "*DDD*" Or _
   
6.            Not .Cells(i, "A") Like "*EEE*" Or _
   
7.            Not .Cells(i, "A") Like "*FFF*" Then
   
8.             .Rows(i).Delete
   
9.         End If
   
10.      Next

½Æ»s¥N½X

­ã´£³¡ªL

¦^´_ 4# v03586

OR ¥ô¤@
AND ¥þ³¡

¦h±ø¥ó­n½T»{¥Î­þ¤@­Ó?

v03586

¦^´_ 5# ­ã´£³¡ªL


    ¤F¸Ñ¤F!!!·PÁ«üÂI!! ­ì¨Ó¬O³o­Ó¤p²Ó¸`...!!!