回答編集履歴
1
デバッグ用コードが残っていたので削除
test
CHANGED
|
@@ -88,11 +88,7 @@
|
|
|
88
88
|
|
|
89
89
|
maxrow = .Range("A1").SpecialCells(xlLastCell).Row '最終行
|
|
90
90
|
|
|
91
|
-
ary = .Range("A4:E" & maxrow).Value
|
|
91
|
+
ary = .Range("A4:E" & maxrow).Value
|
|
92
|
-
|
|
93
|
-
Debug.Print LBound(ary, 1), LBound(ary, 2)
|
|
94
|
-
|
|
95
|
-
|
|
96
92
|
|
|
97
93
|
ReDim aryRes(1 To UBound(ary), 1 To 1)
|
|
98
94
|
|