エクセル・マクロで最終行を表示することについて

Question

Ｃ列の最終行を表示する場合、以下のマクロで表示できます。
今回はＣ列に
Ｃ1＝Ａ1＆Ｂ1
Ｃ2＝Ａ2＆Ｂ2
　↓
という式が入力されている場合について質問します。
Ａ列とＢ列が空白の場合、Ｃ列には0が表示されます。
したがって、下記のマクロだとこの0の行が最終行となります。
私の希望はこのＣ列の0は空白とみなし、0以外の値や文字が入力されている最終行を表示することです。
どのような工夫をすれば可能でしょうか？
ご指導よろしくお願いします。

Sub 最終行表示()
maxrow = Range("c65536").End(xlUp).Row
MsgBox maxrow
End Sub

myRange · Accepted Answer

＞今回はＣ列に
＞Ｃ1＝Ａ1＆Ｂ1
＞という式が入力されている場合
＞Ａ列とＢ列が空白の場合、Ｃ列には0が表示されます。
＞したがって、下記のマクロだとこの0の行が最終行となります。

これは少し勘違いがあるようです。
Ｃ1＝Ａ1＆Ｂ1　の式は文字列結合ですから
A1,B1空白のときに、０が表示されることはありません。
空白のとき０になるのは、
＝Ａ１　とか　＝Ａ１＋Ｂ１　とかの場合です。

また、Ｃ列には式が入っているので常に結果が入っていることになり
その結果が空白あれなんであれ、Range("Ｃ65536").End(xlUp).Row　では、
常に式の入っている最終行が取得されることになります。

で、簡単なのは、Ａ列、Ｂ列の最終行の大きい方をとる方法でしょう。

'-------------------------------------------
Sub 最終行表示t()
　Dim MaxRow As Long

If Range("A65536").End(xlUp).Row > Range("B65536").End(xlUp).Row Then
　　　　MaxRow = Range("A65536").End(xlUp).Row
　Else
　　　　MaxRow = Range("B65536").End(xlUp).Row
　End If

MsgBox MaxRow
End Sub
'------------------------------------

それから、最終行を取得するときは、A65536は使わないで
　　Range("A" & Rows.Count).End(xlUp).Row
のように、Rows.Countを使った方がいいでしょう。
ｘｌ２００７ではシートの最大行が違いますから。
列も同様。
以上です。

BookerL · Answer

スマートではないですが、やりたいことをそのまま書いてみたら？

Sub 最終行表示()
    Dim maxrow As Long
    maxrow = Range("C65536").End(xlUp).Row
    While Range("C" & maxrow).Value = ""
        maxrow = maxrow - 1
    Wend
    MsgBox maxrow
End Sub

なお、

＞Ａ列とＢ列が空白の場合、Ｃ列には0が表示されます。

はほんとにそうなりますか？ A列B列ともに空白なら、C列も空白になるのでは？

web2525 · Answer

A,B列にデーターが入っている場合のC列の最終行を求めたいのであれば
A列かB列の最終行を取得すれば問題ないのでは?

keithin · Answer

文字通りmaxを取ってみる事で良いです。なんども同じ数字を調べに行く必要もありません。

sub macro1()
dim maxrow as long
maxrow = application.max(range("A65536").end(xlup).row, range("B65536").end(xlup).row)
msgbox maxrow
end sub

エクセル・マクロで最終行を表示することについて

＞今回はＣ列に

スマートではないですが、やりたいことをそのまま書いてみたら？

A,B列にデーターが入っている場合のC列の最終行を求めたいのであれば

文字通りmaxを取ってみる事で良いです。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング