回答編集履歴
2
補足追記
test
CHANGED
|
@@ -6,11 +6,11 @@
|
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|
|
9
|
-
セル範囲は、バリアント配列に一括して代入できまし、
|
|
9
|
+
セル範囲は、バリアント配列に一括して代入できますし、
|
|
10
10
|
|
|
11
11
|
また、バリアント配列を一括してセル範囲に代入できますので。
|
|
12
12
|
|
|
13
|
-
|
|
13
|
+
（セル範囲をバリアント配列に代入した時は、２次元配列になります。）
|
|
14
14
|
|
|
15
15
|
|
|
16
16
|
|
1
コードの修正
test
CHANGED
|
@@ -26,7 +26,7 @@
|
|
|
26
26
|
|
|
27
27
|
If tempA(i, 1) = "○" Then
|
|
28
28
|
|
|
29
|
-
tempB = Worksheets("
|
|
29
|
+
tempB = Workbooks(BBB).Worksheets("シート1").Range("F" & i & ":L" & i)
|
|
30
30
|
|
|
31
31
|
Workbooks(AAA).Worksheets("シート1").Range("AO12:AU12") = tempB
|
|
32
32
|
|