[[20200811091313]]　『空白行の捉え方』（Cat77）　ページの最後に飛ぶ

『空白行の捉え方』（Cat77）

よろしくお願いします。
以下のようなデータの時　すべて空白の行を見つけて処理をするのに困っています。

　　　　　Ａ列　　Ｂ列

セル行1　　番号１　ＡＡＡ

セル行2　　番号２　ＢＢＢ

セル行3（番号もなにもない　一行が空白になっている）

セル行4　　番号３　ＣＣＣ

セル行5　　番号４

セル行6　　番号５

　　　　　　↓番号が続く

空白の行（すべて空白行）上記で申し上げますと

例セル行3　を見つけて処理を中断させ、

空でないときは次のdo Untilに続くという処理を行いたいのですが、

下記ですと　空白の行あり　の時　Endで抜けることができますが

逆の時も　　空白の行なし　で　抜けて（処理が終わる）しまいます。

現在のif文です。

  If Trim$(Cells(Ｉ行, I列).Value) + Trim$(Cells(Ｉ行, 15).Value) = "" Then

  MsgBox "空白の行なし"

Else

    MsgBox "空白の行あり"
    Application.EnableEvents = True

        End  '抜ける
    End If

 Do Until Trim$(Cells(Ｉ行, Ｉ1列).Value) = "" And Trim$(Cells(Ｉ行, Ｉ2列).Value) = ""

'実際は空白の行なしの時上記の処理に進むのが希望です。

        Ｉ行 = Ｉ行 + 1

    Loop

    EndCntr = 1

補足です。

If Trim$(Cells(Ｉ行, I列).Value) + Trim$(Cells(Ｉ行, 15).Value) = "" Then　

こちらの文も誤りがあるかと思います。

一行空白を見つけるとき　又は　範囲本当はオフセットで範囲を決めての処理が行いたいと思っています。

恐れ入りますがアドバイスヒントなどいただけないでしょうか？

よろしくお願いします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

よくわかりませんが、単純に1行目からA列の値を順番にみていき、""が出てくるまで繰り返しするのでは、ダメなんですか？

（もこな２） 2020/08/11(火) 09:29

 いつの時代を日木津っているのか解りませんし、単にそう書いているのか解りませんが、
 文字連結に+を使うような質問者に答えたくないと言うのが本音。

 別のセルに書きだして、Trimの結果が合っているのかを
 自分で確かめるのが先ではないでしょうかね。
 書きだした物は、目で見て判断できないと思いますから、別セルに数式を書いて結果を判断。
（Why） 2020/08/11(火) 10:05

お世話になっております。
早速のアドバイス有難うございます。
作成元がおらず、過去書き方を参照に
この空白行の問題点の修正を試みておりました。
素人のため書き方も聞き方にも不備があり申し訳ありませんでした。
もう一度動作を止めたりして行ってみます。書き込んでいただきまして
有難うございます。
（Cat77） 2020/08/11(火) 10:18

コメント返信：

[ 一覧(最新更新順) ]

[[20200811091313]] 『空白行の捉え方』（Cat77） ページの最後に飛ぶ

[[20200811091313]]　『空白行の捉え方』（Cat77）　ページの最後に飛ぶ