質問: Cells(i, 4).PasteSpecial.WorksheetFunction.Transpose Next i End Sub ``` よろしくお願いいたします。
回答: コードの意味を理解せずに、適当につなげたらいいだろうという安易な発想はやめましょう。 `Cells(i, 4) = Cells(i, 4).PasteSpecial.WorksheetFunction.Transpose` PasteSpecialメソッド、Transposeファンクションの意味を調べたら、こんな風にくっつけることができないことは分かるはずです。(最近のオフィスのヘルプは使いづらいので、調べるのにコツがいりますが。) あと、縦横変換した結果はどこに貼り付けるのですか。現状のデータに上書きするのですか。 あとは、実際にコピーして、形式を選択して貼り付けで「行と列を入れ替え」を選択してOKという操作を「マクロの記録」でできるVBAコードを見れば、どのようなコードにすべきかも分かると思います。 また、同じ範囲に上書き貼り付けもできないということが分かるはずです。