こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

VBA データのある最終行の取得

エクセルVBAで最終行を取得する良い方法を教えて下さい。
VBA初心者でいきづまっていまして、、、

内容はボタンを押した時にF列に対して最終行を取得して、
その最終行の下のセルにボタンの内容が繁栄させるようにしたくて

Private Sub CommandButton202_Click()
Dim lastRow As Long

lastRow = Cells(Rows.Count, 6).End(xlUp).Row + 1
Cells(lastRow, 6).Value = CommandButton202.Caption

End Sub

と作ってみたのですが、F17より下に文字がはいっているため、
検索範囲を「F列」ではなく、「F2:F16」のように範囲を指定したいのですがどうしたらよいでしょうか、、、。

結構色々調べてはみたのですができなくて、、、

投稿日時 - 2013-08-22 11:58:16

QNo.8230632

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

質問文からは
現状がどうなっていて何がしたいのかが読み取リづらい

>F列に対して最終行を取得

>F17より下に文字がはいっているため

>検索範囲を「F列」ではなく、「F2:F16」のように範囲を指定したい


ボタンクリック時にデータが入力されるのは
F2セル~F16セルの範囲で、上から順に
との意味合いなのかな?

それで良いのであれば

lastRow = Cells(17, 6).End(xlUp).Row + 1

(F17セルから上方向への最終行を探す)

但しこの方法だとF16にデータが入っていると結果がF2セルを返すので、そのあたりの条件処理が必要になります

投稿日時 - 2013-08-22 12:32:13

あなたにオススメの質問