Ｅｘｃｅｌで行列を入替えるマクロ

質問

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

Ａ１～Ｑ２までデータが入っています。
Ａ１～Ｑ１はタイトル、Ａ２～Ｑ２は内容です。
これを、
(1)Ａ１～Ｂ１７に行列を入替えて貼り付けする
(2)列幅をＡ列を20、Ｂ列を65、行の高さが12～16行目までを60
(3)縦位置の配置を中央揃えにする
この(1)～(3)をボタン１つで実行したいのです。
初心者です。よろしくお願いいたします。

回答No.2

mii-japan

（１）
A1～Q2をコピー
A1セルを選択し、形式を選択して貼り付けで「行列を入れ替える」にチェックを入れる
OKをクリック

（１）～（３）を１アクションで行うには、マクロ記述が必要なのでは

回答No.1

szm88489

マクロの自動記録でコードを生成させてみてはどうでしょうか。
それを参考にボタン実行時のコードとして埋め込んでみるなどを
試す価値はあるかと思います。

補足

ご連絡ありがとうございます。
遅くなりまして申し訳ありません。
この方法ですと、記録した作業が画面にプレビューされてしまうので、まるわかりになってしまいますよねぇ。
プレビューされずに入れ替えを行うのは、素人には難しいですか？？