Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
行と列を入れ替えたい
投稿日時: 17/09/21 13:27:42
投稿者: Dellcasio

お世話になっております。
 
行と列を入れ替えたいのですが、
エクセルのマクロの記録で書かれたコードを見ると、
下記の様に、セル範囲をR1C1形式で書かれています。
これだとマクロを再使用するときに
セルを数えないといけないので、
R1C1形式をセル範囲をA1形式に書き直したいのですが、
簡単に書き直す方法を教えて頂けないでしょうか
 
 
Selection.FormulaArray = "=TRANSPOSE(""C2"":""E2"")"
だとコンパイルエラーになります。
 
 
 
Sub Macro1()
 
    Range("C4:C6").Select
    Selection.FormulaArray = "=TRANSPOSE(R[-2]C:R[-2]C[2])"
     
End Sub
 
 
 
 
 
 
 
 
  A列 B列 C列   D列  E列    
 1    aa   aa   aa
 2            
 3            
 4            
 5            

回答
投稿日時: 17/09/21 13:46:44
投稿者: ピンク

Selection.FormulaArray = "=TRANSPOSE(C2:E2)"
では

回答
投稿日時: 17/09/21 13:49:45
投稿者: ピンク

Selectも不要では
Range("C4:C6").FormulaArray = "=TRANSPOSE(C2:E2)"

投稿日時: 17/09/21 13:53:41
投稿者: Dellcasio

ピンク さんの引用:
Selection.FormulaArray = "=TRANSPOSE(C2:E2)"
では

 
ピンクさん
ご回答ありがとうございました。
 
出来ました。
難しく考えすぎていたようです。
 
ありがとうございました。