ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] keywordªº±ø¥ó­Y¹F2ºØ¥H¤W¡A¸Ó¦p¦ó«Ø¥ß»yªk?

[µo°Ý] keywordªº±ø¥ó­Y¹F2ºØ¥H¤W¡A¸Ó¦p¦ó«Ø¥ß»yªk?

½Ð°Ý¤U¦C»yªk¡Akeywordªº±ø¥ó­Y¹F2ºØ¥H¤W¡A¸Ó¦p¦ó«Ø¥ß»yªk?³Â·Ð½ç±Ð¡A·PÁ¡C
Sub BBB()
keyword = "AW1"      
For i = 7 To 26
    If Cells(i, 1) Like "*" & keyword & "*" Then   
        Cells(i, 3) = ""
        Cells(i, 4) = ""
        Cells(i, 5) = ""
        Cells(i, 6) = ""
End Sub

½Ð°Ý¤U¦C»yªk¡Akeywordªº±ø¥ó­Y¹F2ºØ¥H¤W¡A¸Ó¦p¦ó«Ø¥ß»yªk?³Â·Ð½ç±Ð¡A·PÁ¡C
Sub BBB()
keyword = "AW1"  ...
keny1021 µoªí©ó 2022-7-22 13:40


¤£¦n·N«ä¡A¬Ý¤£¥X»Ý¨D¬°¦ó? ½Ð°Ý¤è«Kªþ¤WÀÉ®×¥B»¡©ú¤@¤U¡AÁÂÁÂ

TOP

¦^´_ 2# samwang


±z¦n:¸É¤Wªþ¥ó.³Â·Ð±z

dsa.zip (52.52 KB)

TOP

¦^´_  samwang


±z¦n:¸É¤Wªþ¥ó.³Â·Ð±z
keny1021 µoªí©ó 2022-7-22 17:28

AÄæÃöÁä¦r¦³AW1¤ÎAW2®ÉÅýC:FÄæ¸ê®Æ¬°ªÅ¥Õ
±Nkeyword = "AW" §Y¥i¡AÁÂÁÂ

TOP

¦^´_ 4# samwang


±z¦n:ÁÂÁ¦^ÂСC

­Y·s¼WBW2§@¬°ÃöÁä¦rªº±ø¥ó¡A³o¼Ë­n¦p¦ó§e²{µ²ªG©O? ¦A³Â·Ð¤F

dsa1.zip (75.09 KB)

TOP

¦^´_  samwang


±z¦n:ÁÂÁ¦^ÂСC

­Y·s¼WBW2§@¬°ÃöÁä¦rªº±ø¥ó¡A³o¼Ë­n¦p¦ó§e²{µ²ªG©O? ¦A³Â·Ð¤F
keny1021 µoªí©ó 2022-7-25 10:02


¥Î±z­ì¨Óªº­×§ï¦p¤U¡AÁÂÁÂ
¥t¥~«Øij¡A¸ê®Æ¦h®É¥i¥H±N¸ê®Æ¸Ë¨ì¼Æ²Õ¡A³o¼Ë®Ä²v¤ñ¸û§Ö

Sub BBB()
keyword = "AW"
keyword2 = "BW1"
For i = 7 To 26
    If Cells(i, 1) Like "*" & keyword & "*" Or Cells(i, 1) Like "*" & keyword2 & "*" Then
        Cells(i, 3) = ""
        Cells(i, 4) = ""
        Cells(i, 5) = ""
        Cells(i, 6) = ""
End If
Next
End Sub

TOP

¦^´_ 5# keny1021

¥Î¼Æ²Õ¤è¦¡¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, T$, i&, j%
Arr = Range([f7], [a65536].End(3))
For i = 1 To UBound(Arr)
    T = Arr(i, 1)
    If InStr(T, "AW") Or InStr(T, "BW1") Then
        For j = 3 To 6: Arr(i, j) = "": Next
    End If
Next
Range("a7").Resize(UBound(Arr), 6) = Arr
End Sub

TOP

¦^´_ 7# samwang


    ½Ð±Ð«e½ú
1.Arr = Range([f7], [a65536].End(3))
2.Arr = Range([a7], [f65536].End(3))

³o¨âºØ»yªk¦J¦CÀx¦s®æªº½d³ò³£¤@¼Ë,¤@¯ë³£¥Î²Ä2ºØ¤è¦¡
¬°¤°»ò«e½ú¥Î²Ä1ºØ¤è¦¡?
¦³¤°»ò¯S®í·N¸q¶Ü?

ÁÂÁ«e½ú!

TOP

¦^´_  samwang


    ½Ð±Ð«e½ú
1.Arr = Range([f7], [a65536].End(3))
2.Arr = Range([a7], [f65536] ...
Andy2483 µoªí©ó 2022-7-26 12:33


¦p±z»¡ªº³£¤@¼Ë¡A¥u¬O¦Ò¼{¬O¥HaÄ欰¥D¦Ó³o¼Ë¼g¦Ó¤w¡AÁÂÁÂ

TOP

¦^´_ 9# samwang


    ÁÂÁ«e½ú«ü¾É
Arr = Range([a7], Cells([a65536].End(xlUp).Row, "f"))
¥H«e³£¥Î³o¼Ëªº¤è¦¡¨Ó½T«O©w¸qªºÀx¦s®æ½d³ò,¤£·|¦]¬°[b7:f26]Àx¦s®æ¸ê®ÆÅܰʦӲ§°Ê

¥HaÄ欰¥Dªº·N«ä¬O
aÄæ¬O¼ÐÃDÄæ,©Ò¥HaÄ檺³Ì«á¦C¼Æ³q±`·|µ¥©ó¾ã­Ó¤u§@ªí³Ì«á¦C¼Æ,
©Ò¥H¥Îªº¥k¤W¨ì¥ª¤Uªº¤è¦¡¦J¦C
¬O³o·N«ä¶Ü?

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD