回答編集履歴
1
コード修正
test
CHANGED
@@ -14,7 +14,7 @@
|
|
14
14
|
|
15
15
|
Dim ary
|
16
16
|
|
17
|
-
ary = Cells(1,
|
17
|
+
ary = Cells(1, 1).Resize(Rows.Count, 2).Value 'セル範囲を配列に格納
|
18
18
|
|
19
19
|
|
20
20
|
|