v03586

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-4-17 02:41 | 只看該作者

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

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

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

複製代碼

A欄位有AAA字串則刪除

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

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

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

樓主熱帖

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

6^#

發表於 2016-4-17 13:01 | 只看該作者

回復 5# 准提部林

了解了!!!感謝指點!! 原來是這個小細節...!!!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

5^#

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

回復 4# v03586

OR 任一
AND 全部

多條件要確認用哪一個?

TOP

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

4^#

發表於 2016-4-17 11:34 | 只看該作者

回復 3# 准提部林

這樣這行的意思會變成假如A欄位沒有AAA 就刪掉嗎?
我跑程式時...變成全部刪光光@@
我想表達的意思是...保留如下關鍵字的部分其餘反黃部分刪除..

For i = .Range("A65536").End(xlUp).Row To 2 Step -1
If Not .Cells(i, "A") Like "*AAA*" Or _
Not .Cells(i, "A") Like "*BBB*" Or _
Not .Cells(i, "A") Like "*CCC*" Or _
Not .Cells(i, "A") Like "*DDD*" Or _
Not .Cells(i, "A") Like "*EEE*" Or _
Not .Cells(i, "A") Like "*FFF*" Then
.Rows(i).Delete
End If
Next

複製代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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

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