回答編集履歴
1
デバッグ用コードが残っていたので削除
answer
CHANGED
|
@@ -43,9 +43,7 @@
|
|
|
43
43
|
With Sheets("単価抽出")
|
|
44
44
|
.Cells(2, 8).Value = "適応単価"
|
|
45
45
|
maxrow = .Range("A1").SpecialCells(xlLastCell).Row '最終行
|
|
46
|
-
ary = .Range("A4:E" & maxrow).Value
|
|
46
|
+
ary = .Range("A4:E" & maxrow).Value
|
|
47
|
-
Debug.Print LBound(ary, 1), LBound(ary, 2)
|
|
48
|
-
|
|
49
47
|
ReDim aryRes(1 To UBound(ary), 1 To 1)
|
|
50
48
|
For I = 1 To UBound(ary)
|
|
51
49
|
aryRes(I, 1) = 適応単価(ary(I, 1), ary(I, 2), ary(I, 3), ary(I, 4), ary(I, 5))
|