A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
マクロを書いてみました。
検索する文字を入力します。シートの中であるだけ削除してしまいます。
削除する行が2行以上離れている保証があれば簡単なのですが、連続して削除対象、1行飛んで削除対象も考慮するのに考え込んでしまいました。解決方法として、最初に削除するセルに『削除する行です』と書き込んで、後から『削除する行です』と書いた行を削除しています。(多分うまくいくと思います)
削除なので、コピーを取って実行して下さい。(保存しなければいい?)
標準モジュールに貼り付けます。
Public Sub Kensaku_Delete2()
Dim sch_Moji As String '検索する文字
Dim sch_rg As Range '検索したセル
Dim sch_RowNo As Long '検索したセルの行番号
sch_Moji = InputBox("検索する文字を入力して下さい。")
If sch_Moji = "" Then
Exit Sub
End If
Application.ScreenUpdating = False
'削除する行に印を付ける
Range("A1").Select
Set sch_rg = Cells.Find(sch_Moji)
While Not (sch_rg Is Nothing)
If sch_rg.Row <> 1 Then
sch_rg.Offset(-1, 0) = "削除する行です" '前の行に印をつける
End If
sch_rg.Offset(1, 1) = "削除する行です" '次の行に印をつける(1つ右)
sch_rg.Offset(0, 0) = "削除する行です" '探した行に印をつける
Set sch_rg = Cells.FindNext(ActiveCell)
Wend
'印を付けた行を削除する
Range("A1").Select
Set sch_rg = Cells.Find("削除する行です")
While Not (sch_rg Is Nothing)
Rows(sch_rg.Row).Delete
Range("A1").Select
Set sch_rg = Cells.FindNext(ActiveCell)
Wend
Application.ScreenUpdating = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) Excelの列から検索して該当する行を別シートに転記するVBA 2 2022/12/20 09:35
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Visual Basic(VBA) vba 15 2023/04/07 12:33
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA:Openステートメントで開い...
-
指定した文字があった場合、そ...
-
日テレニュースHP、記事削除は...
-
今日の日付が過ぎたらその行を...
-
Facebookメッセンジャーの不具合
-
ダブルクォーテーションの削除...
-
教えて!gooにはどのカテゴリが...
-
喧嘩をしてLINE削除され、 また...
-
【エクセル】セル内の右側のみ...
-
「リクエストの有効期限が切れ...
-
「医者も看護師も自分に嫌がら...
-
アクセスにおいて間違って削除...
-
LINEのホームのベルマークにあ...
-
エクセルVBAで行削除時にエラー...
-
離婚後の連絡
-
Excel 数式を入れているため、...
-
もう関わりたくない人がいたらL...
-
Adobe AcrobatのPDFのページ削除
-
マクロで特定の行まで削除する...
-
文字列末尾のスペースを削除したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
もはや喧嘩売ってるのか私(笑...
-
回答がついてる普通の質問まで...
-
指定した文字があった場合、そ...
-
VBA:Openステートメントで開い...
-
AI削除には数多のキーワード設...
-
インスタグラムのギャラリーの...
-
バッチファイルを使用したsql@p...
-
Yahooフリマってどれくらい時間...
-
Facebookメッセンジャーの不具合
-
削除の対象について
-
エクセルで住所の混在する「丁...
-
ビジネスパートナーから送られ...
-
女友達にLINEしたら、既読スル...
-
もう関わりたくない人がいたらL...
-
喧嘩をしてLINE削除され、 また...
-
猫にグラグラの熱湯かける動画...
-
すべてやりきった、大満足を意...
-
インスタアカウント、前の携帯...
-
Facebookに自分が四つもアップ...
-
Facebookで間違ってスートリー...
おすすめ情報