[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『空白行の捉え方』(Cat77)
よろしくお願いします。
以下のようなデータの時 すべて空白の行を見つけて処理をするのに困っています。
A列 B列
セル行1 番号1 AAA
セル行2 番号2 BBB
セル行3(番号もなにもない 一行が空白になっている)
セル行4 番号3 CCC
セル行5 番号4
セル行6 番号5
↓番号が続く
空白の行(すべて空白行)上記で申し上げますと
例セル行3 を見つけて処理を中断させ、
空でないときは 次のdo Untilに続くという処理を行いたいのですが、
下記ですと 空白の行あり の時 Endで抜けることができますが
逆の時も 空白の行なし で 抜けて(処理が終わる)しまいます。
現在のif文です。
If Trim$(Cells(I行, I列).Value) + Trim$(Cells(I行, 15).Value) = "" Then
MsgBox "空白の行なし"
Else
MsgBox "空白の行あり" Application.EnableEvents = True
End '抜ける End If
Do Until Trim$(Cells(I行, I1列).Value) = "" And Trim$(Cells(I行, I2列).Value) = ""
'実際は空白の行なしの時上記の処理に進むのが希望です。
I行 = I行 + 1
Loop
EndCntr = 1
補足です。
If Trim$(Cells(I行, I列).Value) + Trim$(Cells(I行, 15).Value) = "" Then
こちらの文も誤りがあるかと思います。
一行空白を見つけるとき 又は 範囲本当はオフセットで範囲を決めての処理が行いたいと思っています。
恐れ入りますがアドバイスヒントなどいただけないでしょうか?
よろしくお願いします。
< 使用 Excel:Excel2019、使用 OS:Windows10 >
(もこな2 ) 2020/08/11(火) 09:29
いつの時代を日木津っているのか解りませんし、単にそう書いているのか解りませんが、 文字連結に+を使うような質問者に答えたくないと言うのが本音。
別のセルに書きだして、Trimの結果が合っているのかを 自分で確かめるのが先ではないでしょうかね。 書きだした物は、目で見て判断できないと思いますから、別セルに数式を書いて結果を判断。 (Why) 2020/08/11(火) 10:05
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.