回答編集履歴

1

加筆修正

2018/05/17 07:35

投稿

退会済みユーザー
test CHANGED
@@ -1,3 +1,31 @@
1
1
  `Range("A1")`かな、
2
2
 
3
3
  どの範囲をフィルタ対象にするのか、で、A1はないでしょ。
4
+
5
+
6
+
7
+ 3行目から空行なしにデータが並ぶ、
8
+
9
+ ということであれば、
10
+
11
+ ```
12
+
13
+ Dim r As Long
14
+
15
+ r = 3
16
+
17
+ Do Until IsEmpty(ActiveSheet.Cells(r, 1).Value)
18
+
19
+ r = r + 1
20
+
21
+ Loop
22
+
23
+ ' ただしDo - Loopを抜けたタイミングのrをそのまま使わず r - 1 を使う
24
+
25
+ ```
26
+
27
+ として、`r - 1`がデータが実在する最終行になるので、
28
+
29
+ `Range("G" & CStr(r - 1))`などとすれば良さげ。
30
+
31
+ (テスト実行してませんけども。)