[發問] 字串中沒有包含某字元用法

平時我們寫VBA 要找出關鍵字用法都會用Like

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

複製代碼

A欄位有AAA字串則刪除

如果我要改成如果A欄位有AAA字串保留

其餘沒有的刪除怎麼寫呢??

If .Cells(i, "A") Like "*AAA*" Then
下一段???? 其餘刪除

樓主熱帖

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

2^#

發表於 2016-4-17 08:51 | 只看該作者

回復 1# v03586
將
If .Cells(i, "A") Like "*AAA*" Then
改為
If InStr(.Cells(i, "A").Value, "AAA") = 0 Then

用InStr函數，可做為字串比對的判斷：
若判斷式等於0表示沒有符合資料，反之(<>0)則表示有符合的資料

InStr函數的使用法請參照VBA的官方說明

[b]Kubi[/b]

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-30

3^#

發表於 2016-4-17 10:12 | 只看該作者

Like 判斷結果為 True 或 False,
反向, 則可改為
If .Cells(i, "A") Like "*AAA*" = False Then .Rows(i).Delete
或
If Not .Cells(i, "A") Like "*AAA*" Then .Rows(i).Delete

平常習慣用 InStr , 其用法與工作表函數 Find 類似, 只是其參數相反:
=Find(關鍵字, 被比對字串)
SS = InStr(被比對字串, 關鍵字)

Like 另個好處, 可以更多方式模糊比對,
例如:
"AAA*"
"*AAA"
"AAA*B"

TOP

v03586