VBAによる行列コピー変換

Question

E5からE15で取得した行を別のエクセルのB6からB16までに列に変換して
貼り付けるにはどうすればよいでしょうか？

よろしくお願い致します。
下記のようにやりましたが、うまくいきませんでした。

Set a(1) = Workbooks("A.xlsx").Worksheets("sheet1").Range("E5:E15")
Set b(1) = Workbooks("B.xlsx").Worksheets("sheet1").Range("B6:B16")
a(1).Copy(b(1))

Comments

[takito]

「B6からB16」も行方向ですが誤記でしょうか？
また、「うまくいきませんでした」だけでなく、どうなることを期待していたのにどういう結果になってしまったのか、具体的に書かれた方がより伝わりやすいと思います

[rvsezuki]

ごめんさい　間違えました。E5からＥ15ではなくE5からO5でした

[rvsezuki]

行方向のコピーを列に変換して貼り付けたいです。　上のVBAで回すと行のままB6からB16まで貼り付けられたものが出力されました。

[takito]

質問内容を訂正ください

Answer 1

Transpose関数で行列入れ替えて代入ではどうでしょうか。
クリップボード経由でコピー＆ペーストするのはできれば避けたいです。

Dim rangeFrom as Range
Dim rangeTo as Range

Set rangeFrom = Workbooks("A.xlsx").Worksheets("sheet1").Range("E5:O5")
Set rangeTo = Workbooks("B.xlsx").Worksheets("sheet1").Range("B6:B16")

rangeFrom.Value = WorksheetFunction.Transpose(rangeTo.Value)

Answer 2

Range("E6:E15").Select
Selection.Copy
Range("F5").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True

ちなみに、

• 開発＞マクロの記録
• E6からE15を選択＆コピー、F5選択して、右クリック＞形式を選択して貼り付け＞行列を入れ替えるチェックボックスにチェックを入れてOK
• 開発＞記録終了

で出てきたVBAです。
EXCEL2016 VBA7.1です。

Answer 3

rangeにpasteが無いためエラーになってるように思えます。

例：貼り付け先のブックをアクティブにしてセル指定、その後ペースト

Workbooks("A.xlsx").Worksheets("sheet1").Range("E5:E15").copy
Workbooks("B.xlsx").Worksheets("sheet1").activate
Range("B6").select
activesheet.paste

もしくは貼り付け先は全て貼り付けるセルを選択した状態にしておいて(B6セルが選択されている状態)

Workbooks("A.xlsx").Worksheets("sheet1").Range("E5:E15").copy
Workbooks("B.xlsx").Worksheets("sheet1").paste