
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
エクセルで特定の文字が入ってる列を削除方法
Excel(エクセル)
-
4
IF関数などを使って条件に合った「行」を削除するような機能はありますでしょうか?
Excel(エクセル)
-
5
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
6
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
7
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
8
エクセル 指定した文字列を含む列を削除するには
Excel(エクセル)
-
9
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
10
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
11
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
12
【VBA】条件に一致しない行を削除したい 複数条件
Visual Basic(VBA)
-
13
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
14
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
15
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
16
VBAで特定の文字を含まない列の削除方法について
Excel(エクセル)
-
17
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
18
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
19
【VBA】特定の文字が入っている行の一部を抽出して別シートコピーするには
Visual Basic(VBA)
-
20
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
バッチファイルを使用したsql@p...
-
5
指定した文字があった場合、そ...
-
6
VBA:Openステートメントで開い...
-
7
【エクセル】セル内の右側のみ...
-
8
インスタグラムのギャラリーの...
-
9
おしえてgooの質問回答履歴の削...
-
10
【C#】ifと#ifの違い、そして#e...
-
11
喧嘩をしてLINE削除され、 また...
-
12
エクセルVBAで行削除時にエラー...
-
13
エクセルで住所の混在する「丁...
-
14
アクセスにおいて間違って削除...
-
15
「禁止された送信者」を全件一...
-
16
エクセルで下の空白行を削除したい
-
17
ダブルクォーテーションの削除...
-
18
VBA IF文でORを使ったとき後ろ...
-
19
ゼンリーで友達削除されたかも...
-
20
SDカードの音楽の消去
おすすめ情報
公式facebook
公式twitter