回答編集履歴
2
書式の改善
test
CHANGED
@@ -32,6 +32,8 @@
|
|
32
32
|
|
33
33
|
|
34
34
|
|
35
|
+
```VBA
|
36
|
+
|
35
37
|
Sub test2()
|
36
38
|
|
37
39
|
Dim Rng As Range
|
@@ -43,6 +45,8 @@
|
|
43
45
|
MsgBox Rng.Rows(Rng.Rows.Count).row
|
44
46
|
|
45
47
|
End Sub
|
48
|
+
|
49
|
+
```
|
46
50
|
|
47
51
|
|
48
52
|
|
1
追記
test
CHANGED
@@ -76,4 +76,22 @@
|
|
76
76
|
|
77
77
|
(オートフィルターが掛かっていなければエラーになるので、
|
78
78
|
|
79
|
-
合わせて、エラーの回避処理を書いておい
|
79
|
+
合わせて、エラーの回避処理を書いておいた方がよいでしょう)
|
80
|
+
|
81
|
+
|
82
|
+
|
83
|
+
あ、質問を読み直したら、「行番号」とは一つも書いてないですね。
|
84
|
+
|
85
|
+
失礼しました。
|
86
|
+
|
87
|
+
|
88
|
+
|
89
|
+
まず、セル範囲を取得します。
|
90
|
+
|
91
|
+
で、そのセル範囲の行数を数えます。(例 Range("B3:D5").Rows.Count)
|
92
|
+
|
93
|
+
その行数は、表の上から数えたら、最終行は、「数えた行数」番目になります。
|
94
|
+
|
95
|
+
ので、Rowsプロパティーの引数に数えた数を指定してやれば、「最終行」を指し示すことになります。
|
96
|
+
|
97
|
+
Range(”B3:D5").Rows(Range("B3:D5").Rows.Count)
|