samwang

¦^´_ 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

samwang

¦^´_  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

keny1021

¦^´_ 4# samwang


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

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

samwang

¦^´_  samwang


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

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

keny1021

¦^´_ 2# samwang


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

samwang

½Ð°Ý¤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ÁÂÁÂ