Excel VBA 質問スレッド №2070 (未解決)
行の削除
投稿者 : 森ちゃん 投稿日時 : 2025/01/21(Tue) 18:18:39 OS : Windows 11 EXCEL : Office 365
初めて質問します。
シート1のC 列のセルにある文字のあるセルと空白のセルの行を削除したいです。
よろしくお願いします。
初めて質問します。
シート1のC 列のセルにある文字のあるセルと空白のセルの行を削除したいです。
よろしくお願いします。
スポンサーリンク
[返信 1] Re : 行の削除
投稿者 : てらてら 投稿日時 : 2025/01/21(Tue) 19:01:05
こんにちは。
「文字のあるセル」=「数値でないセル」と考えるなら以下のようになります。
こんにちは。
「文字のあるセル」=「数値でないセル」と考えるなら以下のようになります。
Sub macro() Dim lastRow As Long Dim i As Long With Worksheets("シート1") lastRow = .Cells(Rows.Count, "C").End(xlUp).Row For i = lastRow To 1 Step -1 If IsNumeric(.Cells(i, "C").Value) = False Or .Cells(i, "C") = "" Then .Rows(i).Delete End If Next i End With End Sub
[返信 2] Re : 行の削除
投稿者 : ピロリ 投稿日時 : 2025/01/21(Tue) 20:33:40
■[質問] 森ちゃんさん(2025-01-21 18:18:39)の記事
> シート1の C列のセルにある文字のあるセルと空白のセルの行を削除したいです。
私は「ある文字のあるセル」というのが、「或る文字の在るセル」(特定の文字列が含まれているセル)ってことかなぁと
思ったのですが、間違っていたならご免なさい。 読み捨てて下さい。
下は、特定の文字列というのが「不要」とか「削除」とかの前提で・・・
■[質問] 森ちゃんさん(2025-01-21 18:18:39)の記事
> シート1の C列のセルにある文字のあるセルと空白のセルの行を削除したいです。
私は「ある文字のあるセル」というのが、「或る文字の在るセル」(特定の文字列が含まれているセル)ってことかなぁと
思ったのですが、間違っていたならご免なさい。 読み捨てて下さい。
下は、特定の文字列というのが「不要」とか「削除」とかの前提で・・・
Sub Sample() Dim i As Long, j As Long, s As Variant s = Array("不要", "削除") With Worksheets("シート1") For i = .Cells(Rows.Count, "C").End(xlUp).Row To 1 Step -1 For j = 0 To UBound(s) If 0 < InStr(.Cells(i, "C"), s(j)) Or .Cells(i, "C") = "" Then 'C列のセルが特定文字列を含んでたり空白だった場合は行削除 .Rows(i).Delete Exit For End If Next j Next i End With End Sub
[返信 3] Re : 行の削除
投稿者 : 全部 投稿日時 : 2025/01/22(Wed) 03:24:33
>文字のあるセルと空白のセルの行
全部じゃん
ひょっとして数値は除外とか後で言うんか?
>文字のあるセルと空白のセルの行
全部じゃん
ひょっとして数値は除外とか後で言うんか?
当掲示板について
- Excel VBA に関する掲示板です。Excel VBA に関する質問や疑問、それに対する解決方法など気軽に投稿してください。
- 記事内ではHTMLのタグは使用できません。
- 記事は一度投稿すると修正できません。内容を訂正したい場合は返信で対応してください。
- Sub〜End Sub、Function〜End Function は自動的にプログラムコードとみなし、枠で囲って見やすくします。
- Excel VBA とは関係ないことや、他人が不快に思うようなことなど、管理人が適当でないと判断した記事は削除する場合があります。
スポンサーリンク
返信入力フォーム
( 処理日時 : 2025-02-07 23:30:44 )