­ã´£³¡ªL

¦^´_ 20# ABK

¨SÀÉ®×, ª¼¼g:
Sub TEST()
Dim xA As Range, xR As Range, xU As Range
Set xA = Sheets("Sheet1").UsedRange.Offset(1, 0)
For Each xR In xA.Columns(3).Cells
    If InStr("/cat/dog/", "/" & xR & "/") < 2 Then
       If xU Is Nothing Then Set xU = xR Else Set xU = Union(xU, xR)
    End If
Next
If Not xU Is Nothing Then xU.EntireRow.Delete
End Sub


=====================

ABK

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


ÁÂÁ­ã³ö¤j !
cat ªº¦C ¤]³Q§R°£¤F!

­ã´£³¡ªL

¦^´_ 22# ABK

¥[¤@¥k±×½u~~
If InStr("//cat/dog/", "/" & xR & "/") < 2 Then

ABK

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


    ·PÁÂ ­ã³ö¤j !
    OK¤F!

ssooi

¦^´_ 7# GBKEE


½Ð°Ý.......
¦pªG§Ú¥Î¡u°Ï°ìÅܼơv¨ÓÆ[¹î¥LªºÅܤÆ
§Ú¸Ó¬Ýrng¸Ì­±­þ­Ó¼Æ­È¡H
¸Ì­±¤j·§¦³30¶µ¶]¤£±¼§a

©êºp
°Ý¤F­Ó«Ü°ò¦ªº°ÝÃD⋯⋯
¦ý¬O§Ú¯uªº¤£¾å±orange¸Ì­±ªº¦U­Ó¼Æ­È¥Nªíªº·N¸q¬O¤°»ò

luhpro

¦^´_  GBKEE


½Ð°Ý.......
¦pªG§Ú¥Î¡u°Ï°ìÅܼơv¨ÓÆ[¹î¥LªºÅܤÆ
§Ú¸Ó¬Ýrng¸Ì­±­þ­Ó¼Æ­È¡H
¸Ì­±¤j·§ ...
ssooi µoªí©ó 2020-12-18 13:26

Ãö©ó¢¶¡­
­n¬ÝªºÃöÁä¦b¨º¤@¦æ : Rng = Union(Rng, R)
µ²ªG¬O­Ó "Àx¦s®æ¶°¦X(§YRange Union)".
Àx¦s®æ¥»¨­¬O­Ó "ª«¥ó" ²Õ¦¨¤¸¯À¤Ó¦h¤F,
¦Ó§Ú­Ì­n¬Ýªº¬O¸Ó¶°¦X¤¤ÅܤÆ(¥[´î)¤F­þ­ÓÀx¦s®æ,
©Ò¥H¥u»Ý­n¤F¸ÑUnion²Õ¦¨¤¤Àx¦s®æªº "¦ì§}" ÅܤƴN°÷¤F,
¹Bºâ¦¡¥Î :  Rng.address

Ãö©ó ¢±¢°¡­
­n¬ÝªºÃöÁä¦b¨º¤@¦æ : Set xU = Union(xU, xR)
¹Bºâ¦¡¥Î :  xU.address

¦b "§Y®É¹Bºâµøµ¡" ¤¤¥´¤W ?(¤W­zªº¹Bºâ¦¡)
¨Ò¦p :  ?Rng.address
¦A«ö Enter ´N¥i¥Hª¾¹D¶°¦X¤¤Àx¦s®æª«¥óªº¼W´î(Æ[¬ÝÅã¥Üªº¦ì§}¸sÅܤÆ).

­Y¤£·QF8¶]¤@¨B´N­n«öEnter¬Ý¤@¦¸,
¤]¥i¥H¦b "·s¼WºÊ¬Ý¦¡" ¤¤ºÊ¬Ý : (¤W­zªº¹Bºâ¦¡) .
¨Ò¦p :  Rng.address

ssooi

­ì¨Ó¦p¦¹
ª«¥ó¸Ì­±¤@°ï¼Æ­È
¬Ýªº²´³£ªá¤F
ÁÂÁÂ