回答編集履歴
2
修正
test
CHANGED
|
@@ -20,11 +20,11 @@
|
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
23
|
-
' On Error
|
|
23
|
+
' On Error resume next
|
|
24
24
|
|
|
25
25
|
' i = .DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Count
|
|
26
26
|
|
|
27
|
-
' On Error
|
|
27
|
+
' On Error goto 0
|
|
28
28
|
|
|
29
29
|
End With
|
|
30
30
|
|
1
修正
test
CHANGED
|
@@ -36,7 +36,7 @@
|
|
|
36
36
|
|
|
37
37
|
|
|
38
38
|
|
|
39
|
-
Rows.Count
|
|
39
|
+
.SpecialCells(xlCellTypeVisible).Rows.Count
|
|
40
40
|
|
|
41
41
|
とやると、
|
|
42
42
|
|
|
@@ -45,9 +45,3 @@
|
|
|
45
45
|
|
|
46
46
|
|
|
47
47
|
1列に限定して、セルの数を数えてみてください。
|
|
48
|
-
|
|
49
|
-
シート上でテーブルとして設定しているなら、
|
|
50
|
-
|
|
51
|
-
DataBodyRangeプロパティで、
|
|
52
|
-
|
|
53
|
-
項目行を除いたセル範囲が取得できますので覚えておくと便利かも知れません。
|