忍者ブログ

[PR]

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

シートの最終行、最終列の取得

最終行の取得
Cells(Rows.Count, ｎ).End(xlUp).Row


最終列の取得
Cells(ｎ, Columns.Count).End(xlToLeft).Column



赤字のｎの部分に、最終行を取得したい列番号
もしくは、最終列を取得したい行番号を置き換えて
使用します。


たとえば、

Private Sub Test()
Dim MaxRow As Integer
    MaxRow = Cells(Rows.Count, 1).End(xlUp).Row
End Sub

のようなコードを実行すると、変数MaxRowには、
アクティブシート1列目の、最終行の行番号が
格納されます。

拍手[0回]

PR

アップロードテスト

を兼ねて夕日を撮ってみたけど…

台風の影響でひじょーに微妙な感じになってしまいました(^_^;




いつもならきれいに見えるのに(-_-;)

こんな感じ



良い画が撮れたら、またアップしてみようp(^_^)q

拍手[0回]