回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -1,12 +1,12 @@
|
|
|
1
1
|
Transpose関数で行列入れ替えて代入ではどうでしょうか。
|
|
2
|
+
クリップボード経由でコピー＆ペーストするのはできれば避けたいです。
|
|
2
3
|
|
|
3
|
-
|
|
4
4
|
```vba
|
|
5
5
|
Dim rangeFrom as Range
|
|
6
6
|
Dim rangeTo as Range
|
|
7
7
|
|
|
8
|
-
Set rangeFrom =
|
|
8
|
+
Set rangeFrom = Workbooks("A.xlsx").Worksheets("sheet1").Range("E5:O5")
|
|
9
|
-
Set rangeTo =
|
|
9
|
+
Set rangeTo = Workbooks("B.xlsx").Worksheets("sheet1").Range("B6:B16")
|
|
10
10
|
|
|
11
11
|
rangeFrom.Value = WorksheetFunction.Transpose(rangeTo.Value)
|
|
12
12
|
```
|