No.2ベストアンサー
- 回答日時:
手抜きですがこんな感じでどうでしょう。
削除する行が多いなら画面更新を停止した方が良いでしょう。
Sub Sample()
Sheets("Sheet1").Select
Do While (True)
Columns("B:B").Select
Set mySelect = Selection.Find(What:="XYZ")
If mySelect Is Nothing Then Exit Do
Rows(mySelect.Row).Select
Selection.Delete Shift:=xlUp
Loop
End Sub
No.3
- 回答日時:
一例です。
半角、全角問わずxyzの文字列があれば行削除します。
シータタブ上で右クリック→コード表示→以下のコードを貼り付けてお試しください。
Sub 行削除()
For i = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1
If InStr(1, Cells(i, "b"), "XYZ", vbTextCompare) > 0 Then
Rows(i).Delete
End If
Next
End Sub
No.1
- 回答日時:
一例です。
Sheet1のB列に、大文字でも小文字でもXYZを含む文字列があれば、その行を削除します。
Sub test()
Dim i As Long, x As Long
With Sheets("Sheet1")
x = .Cells(Rows.Count, "B").End(xlUp).Row 'B列最終行取得
For i = x To 1 Step -1 '下から順に
If InStr("xyz", StrConv(.Cells(i, "B").Value, vbLowerCase)) > 0 Then 'xyzを含んでいれば
.Cells(i, "B").EntireRow.Delete '行削除
End If
Next i
End With
End Sub
対象が何万行もあるならもっと別の方法で高速化も図れますが、お勉強でしょうから一応オーソドックスで方法を書きました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/12/26 12:05
- Visual Basic(VBA) 【至急】 当方初心者です。 マクロについて知恵をお貸しください。 ★したい動作 ①リストE列2行目か 4 2022/09/29 18:56
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/05/23 15:54
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/03/01 15:44
- C言語・C++・C# C言語の質問です、プログラミング初心者です このような文字列があった場合 "abcdef☆ghijk 4 2022/11/22 10:56
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
エクセルで特定の文字が入ってる列を削除方法
Excel(エクセル)
-
-
4
エクセルで特定の行を削除したいのですが。
Excel(エクセル)
-
5
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
6
VBAで特定の文字を含まない列の削除方法について
Excel(エクセル)
-
7
エクセル 指定した文字列を含む列を削除するには
Excel(エクセル)
-
8
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
9
IF関数などを使って条件に合った「行」を削除するような機能はありますでしょうか?
Excel(エクセル)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
マクロ 特定のセル値のみクリアする
Visual Basic(VBA)
-
12
エクセルマクロ 特定の文字列を含む行のみを残す (マクロ修正)
Excel(エクセル)
-
13
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
14
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
15
Wordの文章中の一致した文字のある段落を削除する
Visual Basic(VBA)
-
16
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
【VBA】条件に一致しない行を削除したい 複数条件
Visual Basic(VBA)
-
19
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
20
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
回答のついた質問を削除すると...
-
Yahooフリマってどれくらい時間...
-
VBA:Openステートメントで開い...
-
エクセルVBAで行削除時にエラー...
-
VBA IF文でORを使ったとき後ろ...
-
(Access)複数条件の重複デー...
-
今日の日付が過ぎたらその行を...
-
Facebookメッセンジャーの不具合
-
エクセルで住所の混在する「丁...
-
女友達にLINEしたら、既読スル...
-
おしえてgooの質問回答履歴の削...
-
削除要項どうなってやがるんだ!!
-
なんで同じ質問を繰り返す人の...
-
離婚後の連絡
-
SDカードの音楽の消去
-
opensslを削除したい
-
至急LINEアカウント
-
告白してフラれた相手の連絡先...
-
パソコン画面に表示される
-
【エクセル】セル内の右側のみ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
指定した文字があった場合、そ...
-
vba 削除
-
VBA:Openステートメントで開い...
-
エクセルで住所の混在する「丁...
-
もう関わりたくない人がいたらL...
-
ハメ撮りが流出したら
-
今日の日付が過ぎたらその行を...
-
喧嘩をしてLINE削除され、 また...
-
エクセルVBAで行削除時にエラー...
-
外付けSSDのデータを改ざんされ...
-
Facebookメッセンジャーの不具合
-
lineスタンプの使用した使用履...
-
この質問サイトはどうしてヤフ...
-
アクセスにおいて間違って削除...
-
女友達にLINEしたら、既読スル...
-
ダブルクォーテーションの削除...
-
VBA IF文でORを使ったとき後ろ...
-
すべてやりきった、大満足を意...
-
(Access)複数条件の重複デー...
-
回答のついた質問を削除すると...
おすすめ情報