回答編集履歴
1
コード修正
test
CHANGED
@@ -1,6 +1,6 @@
|
|
1
1
|
Transpose関数で行列入れ替えて代入ではどうでしょうか。
|
2
2
|
|
3
|
-
|
3
|
+
クリップボード経由でコピー&ペーストするのはできれば避けたいです。
|
4
4
|
|
5
5
|
|
6
6
|
|
@@ -12,9 +12,9 @@
|
|
12
12
|
|
13
13
|
|
14
14
|
|
15
|
-
Set rangeFrom =
|
15
|
+
Set rangeFrom = Workbooks("A.xlsx").Worksheets("sheet1").Range("E5:O5")
|
16
16
|
|
17
|
-
Set rangeTo =
|
17
|
+
Set rangeTo = Workbooks("B.xlsx").Worksheets("sheet1").Range("B6:B16")
|
18
18
|
|
19
19
|
|
20
20
|
|