• 締切済み

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」のように範囲を指定したいのですがどうしたらよいでしょうか、、、。 結構色々調べてはみたのですができなくて、、、

みんなの回答

  • web2525
  • ベストアンサー率42% (1219/2850)
回答No.1

質問文からは 現状がどうなっていて何がしたいのかが読み取リづらい >F列に対して最終行を取得 >F17より下に文字がはいっているため >検索範囲を「F列」ではなく、「F2:F16」のように範囲を指定したい ボタンクリック時にデータが入力されるのは F2セル~F16セルの範囲で、上から順に との意味合いなのかな? それで良いのであれば lastRow = Cells(17, 6).End(xlUp).Row + 1 (F17セルから上方向への最終行を探す) 但しこの方法だとF16にデータが入っていると結果がF2セルを返すので、そのあたりの条件処理が必要になります

関連するQ&A