こんにちは。
先日以下のURLで質問させて頂きました者です。
http://okwave.jp/qa/q8567085.html
そこで、教えて頂いたマクロは成功したのですが、
inputboxではない方法を知りたいです。
---前回頂きました回答を引用しております------------------------------
retu = "D"
word = InputBox(retu & "列に指定した文字が含まれていない行を削除します。" _
& vbCrLf & "検索する文字を入力してください。")
For i = Range("D" & "65536").End(xlUp).Row To 2 Step -1
If InStr(1, Range(retu & i).Value, word) = 0 Then
Rows(i).Delete
End If
Next i
------------------------------------------------------------------
この文の文字を入力せずに、
マクロの中に特定の文字を記入して、その文字列以外の行を削除したいです。
ご教授頂けたらと思います。
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
こんにちは!
ごく簡単に
Sub Sample1()
Dim i As Long
For i = Cells(Rows.Count, "D").End(xlUp).Row To 2 Step -1
If InStr(Cells(i, "D"), "検索したい文字") = 0 Then
Rows(i).Delete
End If
Next i
End Sub
こんな感じではどうでしょうか?
※ 「検索したい文字」そのものだけではなく、
「検索したい文字」が「含まれている」場合も適応されます。
「検索したい文字」そのものの場合は
>If InStr(Cells(i, "D"), "検索したい文字") = 0 Then
の行を
>If Cells(i, "D") <> "検索したい文字" Then
に変更してください。m(_ _)m
こんにちは。早速のご回答ありがとうございます。
うまくいきました!まさにこれです!!
検索したい文字そのものの場合もありがとうございます。
今後、活用したいと思います^^
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Excel(エクセル) R列の1111/11/11以外、且つQ列の×の条件で該当行のAからAE列までオレンジに塗りつぶす 2 2022/07/02 10:18
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
VBAで特定の文字を含まない列の削除方法について
Excel(エクセル)
-
-
4
【VBA】条件に一致しない行を削除したい 複数条件
Visual Basic(VBA)
-
5
【VBA】条件に一致しない行を削除したい
Visual Basic(VBA)
-
6
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
7
【Excel VBA】特定の列以外を削除
Excel(エクセル)
-
8
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
9
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
10
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
11
エクセルVBA 最終行を選んで並び替え
Excel(エクセル)
-
12
EXCEL 年月表示をするVBAを教えてください。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1MBでドレくらいの文章を書くこ...
-
作ったマクロを複数のシートで...
-
ペイントでのテキスト修正
-
Notionが、テーブルビューを一...
-
スペイン語で「i」や「o」の上...
-
エクセルVBA 特定文字以外の行...
-
10分間で1200文字打てる...
-
VB6 String型変数の文字数制限
-
4個の文字a,b,b,cから3個の文字...
-
TeraPadで環境依存文字を入力す...
-
4文字から出来る何通りかの結果...
-
PDFデータ内の枠線の中に文字を...
-
英文の字下げ、について
-
マル秘マークを入れたい
-
世界最速タイピング打てる人1分...
-
PDFファイルに文字を書き込む方法
-
JTrimで任意のところに文字を挿...
-
イラストレーターで、文字ツー...
-
テキスト型は何故255文字ま...
-
一太郎のカーソル位置
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
1MBでドレくらいの文章を書くこ...
-
ワードの行✖️文字数について。 ...
-
エクセルで入力してある文を別...
-
スペイン語で「i」や「o」の上...
-
Notionが、テーブルビューを一...
-
文字を縦書きにしていたら、斜...
-
作ったマクロを複数のシートで...
-
ペイントでのテキスト修正
-
Excel csvから開くと上限文字数...
-
イラストレーターで、文字ツー...
-
ラテン文字(aなどの上に点が二...
-
英文の字下げ、について
-
マル秘マークを入れたい
-
42×34ってことは最大1428文字っ...
-
テキスト型は何故255文字ま...
-
TeraPadで環境依存文字を入力す...
-
ペイントでテキストを入れると...
-
フォトショップで、スキャナ取...
-
イラストレイターでの文字間隔
-
word初心者です 助けてください...
おすすめ情報