keyword的條件若達2種以上，該如何建立語法? - Excel程式區

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

1^# 跳轉到 »

發表於 2022-7-22 16:14 | 顯示全部帖子

請問下列語法，keyword的條件若達2種以上，該如何建立語法?麻煩賜教，感謝。
Sub BBB()
keyword = "AW1" ...
keny1021 發表於 2022-7-22 13:40

不好意思，看不出需求為何? 請問方便附上檔案且說明一下，謝謝

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

2^#

發表於 2022-7-22 19:45 | 顯示全部帖子

回復 samwang

您好:補上附件.麻煩您
keny1021 發表於 2022-7-22 17:28

A欄關鍵字有AW1及AW2時讓C:F欄資料為空白
將keyword = "AW" 即可，謝謝

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

3^#

發表於 2022-7-25 10:38 | 顯示全部帖子

回復 samwang

您好:謝謝回覆。

若新增BW2作為關鍵字的條件，這樣要如何呈現結果呢? 再麻煩了
keny1021 發表於 2022-7-25 10:02

用您原來的修改如下，謝謝
另外建議，資料多時可以將資料裝到數組，這樣效率比較快
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

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2023-9-21

4^#

發表於 2022-7-25 11:13 | 顯示全部帖子

回復 5# keny1021

用數組方式，請測試看看，謝謝
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