VBA 変数について

質問

下記コードにおける変数ｒは、具体的にどういう事を意味するのでしょうか？
よろしくお願いします。
Dim r As Long
With Worksheets("Steet1")
r=.Cells(.Rows.Count,"a").End(xlUp).Row

回答No.4

imogasi · ベストアンサー

>Dim r As Long
エクセルの行番号を捉えるので、変数のタイプは数です。エクセル２００３以前はIntegerでも良かったと思います。
＞With Worksheets("Steet1")
Worksheets("Steet1")　オブジェクトについて・
次ぎの先頭の「.」がそのオブジェクトに関するものであることを
表せるようになります。
＞r=.Cells(.Rows.Count,"a").End(xlUp).Row
Sub test02()
MsgBox Cells.Rows.Count
End Sub
が６５５３６となるので判るように
Range(A65536").End(xlup).Row と同じです（こちらの表現が多い）
EndはEndメソッドで終端（セル）を表す。xlUpで下から上に見ます。
Cells(.Rows.Count,"a").ですから、A列について
その終端セルのRowプロパティすなわち下端セルの行番号をｒに代入するので、下端の行数がわかった・使えることになります。
上端セル（固定していることが多い）から下端のセル行番号ｒのセルまで
For　i=3 to r
Cells(i,"A")=・・・
Next i
のような繰り回しができます。

お礼

ご丁寧な回答ありがとうございました。
とても参考になりました。

回答No.3

ham_kamo

Ａ列の一番最後に値が入力されている行番号をrに代入しています。

.Rows.Count とは、シートの行数です。したがって、
.Cells(.Rows.Count."a")は、A列の一番下のセルを意味します。
(Cells(1,"A")はCells(1,1)やRange("A1")と同じことです）

そこから、.End(xlUp)するというのはVBAでのテクニックですが、上向きにセルを検索していって、値がみつかった一番最初のセルを見つけます。それはすなわちＡ列に値が代入されている一番下のセルで、そのセルに対して.Rowプロパティで行番号を取得している、ということです。

お礼

ご丁寧な回答ありがとうございました。
とても、勉強になりました。

回答No.2

hana-hana3

マクロは、
Ａ列の一番下のセルを選択して、
[End],[↑]とキー操作
した時と同じです。

そのときに止まった位置の「行」の番号（数字）が入っています。

お礼

迅速なご回答ありがとうございました。

回答No.1

platina_24

変数ｒを長整数型で宣言します。
ａと入力されているセルを行の最後からカウントして変数ｒにしています。

お礼

迅速なご回答ありがとうございました。