VBA指定範囲セルの縦横入れ替えをしたい

Question

前提・実現したいこと

VBA初心者です。アドバイスいただけると幸いです
VBAで、エクセル内の指定範囲セルをコピーし、縦に貼り付け（縦横入れ替え）を、繰り返し実行しようとしたところ、以下のコードにて424エラーが出てしまいました。
デバッグしたところ、コピーまではできているのですが、貼り付けの段階で止まってしまいます。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Sub Cppst1()
    Dim i As Long
    Dim lngERow As Long
    lngERow = Range("A" & Rows.Count).End(xlUp).Row
    For i = lngERow To 2 Step -1
        Range(Cells(i, 4), Cells(i, 14)).Copy
        Cells(i, 4) = Cells(i, 4).PasteSpecial.WorksheetFunction.Transpose
      Next i
End Sub

よろしくお願いいたします。

Answer 1

コードの意味を理解せずに、適当につなげたらいいだろうという安易な発想はやめましょう。

Cells(i, 4) = Cells(i, 4).PasteSpecial.WorksheetFunction.Transpose

PasteSpecialメソッド、Transposeファンクションの意味を調べたら、こんな風にくっつけることができないことは分かるはずです。（最近のオフィスのヘルプは使いづらいので、調べるのにコツがいりますが。）

あと、縦横変換した結果はどこに貼り付けるのですか。現状のデータに上書きするのですか。

あとは、実際にコピーして、形式を選択して貼り付けで「行と列を入れ替え」を選択してOKという操作を「マクロの記録」でできるVBAコードを見れば、どのようなコードにすべきかも分かると思います。
また、同じ範囲に上書き貼り付けもできないということが分かるはずです。

Comments

[Keiichi_24]

アドバイスありがとうございます！指摘してもらった内容を元に修正し、実現できました。大変ありがとうございました。

Answer 2

行列を入れ替えるコピペの場合は、コピーする範囲の一部と、ペーストする範囲の一部が重ならないようにしましょう。

Comments

[Keiichi_24]

アドバイスありがとうございました！おっしゃるとおり、コピーの一部とペーストの一部が重なってしまっておりました。