![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
こんにちは。
特定の文字列が複数あって、その文字列があったときに行ごと削除を行いたいです。
行を削除するマクロは別の方が質問をしていて、コードは分かったのですが、
”特定の文字列”が2つ以上ある場合のコードを教えていただきたいです。
行を削除するマクロは以下の通りです。
----------------------------------------------------
Sub 特定の文字列を含む行を削除()
Dim c As Range
Dim myRow As Long
With Range("A:A")
Set c = .Find("特定の文字列")
Do While Not c Is Nothing
Rows(c.Row).Delete shift:=xlUp
Set c = .Find("特定の文字列")
Loop
End With
End Sub
----------------------------------------------------
Set c = .Find("特定の文字列")の"特定の文字列"を右側へ増やしたりしてみたのですが、
そもそもの考え方が違うのだろうな…と思いました。
詳しい方、何卒よろしくお願い申し上げます。
No.2ベストアンサー
- 回答日時:
こんにちは!
色々やり方はありますが、一例です。
尚、1行目は項目行でデータは2行目以降にあるという前提です。
まずオートフィルタを使うやり方です。
Sub Sample1()
Dim lastRow As Long
Dim myary
myary = Array("赤", "青", "紫")
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1").AutoFilter field:=1, Criteria1:=myary, Operator:=xlFilterValues
If Cells(Rows.Count, "A").End(xlUp).Row > 1 Then
Range(Cells(2, "A"), Cells(lastRow, "A")).SpecialCells(xlCellTypeVisible).EntireRow.Select '//★//
End If
ActiveSheet.AutoFilterMode = False
End Sub
次に、コツコツループさせる方法です。
Sub Sample2()
Dim i As Long, k As Long
Dim myRng As Range
Dim myary
myary = Array("赤", "青", "紫")
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
For k = 0 To UBound(myary)
If Cells(i, "A") = myary(k) Then
If myRng Is Nothing Then
Set myRng = Cells(i, "A")
Else
Set myRng = Union(myRng, Cells(i, "A"))
End If
Exit For
End If
Next k
Next i
If Not myRng Is Nothing Then
myRng.EntireRow.Select '//★//
End If
End Sub
※ どちらも行選択でやめています。
すぐに削除したい場合は「★」の行の
>Select
を
>Delete
に変更してみてください。m(_ _)m
tom04 様
書いていただいたコードで解決しました!
とても悩んでいたので、すっきりしました。
お知恵を貸していただきありがとうございます。
No.1
- 回答日時:
こんにちは
どのような条件でテストしているのかわかりませんが、ご提示のコードは複数行に存在する場合を想定したコードになっています。
もしかすると、あちこちの列に点在するようなケースでテストしていて、うまくいかないと言っていたりするのでは?
あるいは、完全一致ではなく部分一致も削除したいといったように、どこか前提条件が違っているのかもしれません。
全体の考え方はそのままで使えるはずなので、条件が異なるところを調整すれば良いのではないでしょうか。
https://docs.microsoft.com/ja-jp/office/vba/api/ …
ご回答ありがとうございます。
特定の文字列は複数の列で点在はして居らず、
1列に入力してあります。
上記のコードは1つの特定の文字列(例えば”赤”)を探し、特定の文字列(”赤”)を見つけ出したときに、
”赤”の行自体を削除してくれました。
特定の文字列が複数あってその行を削除したい場合(例えば”赤”と”青”と”紫”)はどうしたらいいのかなと思っていました。
説明が悪く申し訳ございません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
エクセル 指定した文字列を含む列を削除するには
Excel(エクセル)
-
-
4
エクセルで特定の文字が入ってる列を削除方法
Excel(エクセル)
-
5
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
6
【Excel VBA】複数の条件を満たすデータを行削除
Excel(エクセル)
-
7
エクセルマクロ 特定の文字列を含む行のみを残す (マクロ修正)
Excel(エクセル)
-
8
VBAで特定の文字を含まない列の削除方法について
Excel(エクセル)
-
9
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
10
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
11
【VBA】特定の文字が入っている行の一部を抽出して別シートコピーするには
Visual Basic(VBA)
-
12
【VBA】条件に一致しない行を削除したい 複数条件
Visual Basic(VBA)
-
13
VBAで文字列を数値に変換したい
Excel(エクセル)
-
14
Excelで、任意の言葉で始まる行のみを、行ごと一括で削除する方法を教
Excel(エクセル)
-
15
エクセル2016の特定の文字列を含む行を削除
Excel(エクセル)
-
16
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
17
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
18
vbaでシートより100より大きい値を削除するコードを教えてください
Visual Basic(VBA)
-
19
IF関数などを使って条件に合った「行」を削除するような機能はありますでしょうか?
Excel(エクセル)
-
20
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
php言語の脆弱性について
-
エクセルでアルファベットか数...
-
【ChatGTPのオープンソースソフ...
-
16進数を10進数に簡単に変換す...
-
wordで同じ行に入力した文字列...
-
住所などの中から漢数字だけを...
-
[C言語]fputsとfprintfの違い
-
同一セル内に関数と文字列を同...
-
Excelで偶数行だけ文字列を数え...
-
(エクセル)複数のセルの数値...
-
Excelで3E8を3.00E+8にしない方...
-
文字列からタブコードを取り除...
-
【ホームページ】CGI?JavaScri...
-
sedなどで、特定の文字列の後の...
-
EXCELで=より左の文字を一括で...
-
エクセルで文字列の最大値を抽...
-
VBAを使って選択した範囲の数字...
-
NULLの定義について
-
vbsからバッチファイル実行時の...
-
Msgboxの×が押されたとき
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでアルファベットか数...
-
EXCELで=より左の文字を一括で...
-
VBAでの Replace関数で、ワイル...
-
Excelで指数表現しないようにす...
-
文字列からタブコードを取り除...
-
Excelで3E8を3.00E+8にしない方...
-
エクセルで文字列をtxtファイル...
-
エクセルで文字列の最大値を抽...
-
VBA2005 16進を2桁で表示したい。
-
同一セル内に関数と文字列を同...
-
Left関数とRight関数を合わせた...
-
VBの「As String * 128」とは?
-
Msgboxの×が押されたとき
-
【Excel VBA】複数ある特定の文...
-
MS SQLServer のSQLで文字列の...
-
アクセスで特定の数字以外(複...
-
エクセルでセル内の文字列の最...
-
ORCLEでの小数の表示方法の変更...
-
変数内に入った文字列の結合 UWSC
-
エクセル 数値データを桁をそ...
おすすめ情報