エクセルで行と列を入れ替えキーを作成

エクセルで「行と列を入れ替えて貼り付け」の操作を頻繁に使うことが多いのですが、マウスの右クリックを使わずに「Ctrl+？」の様にキーボード操作で済ます方法はありませんか？よろしくお願いします。

単純な「値のみ貼り付け」はボタン登録ができたのですが、「行と列を入れ替えて貼り付け」は出来ません。

No.1 回答者： l4330 回答日時： 2008/09/28 17:24

　

マクロに記録し、マクロのオプションでショートカットキーを設定してください。

　
　

No.2 回答者： marbin 回答日時： 2008/09/28 17:31

ちょいと作業数がおおいですが

Alt+E
↓
S
↓
E
↓
Enter

ではだめですか？

VBAで自作のショートカットキーを設定する、という
のも可能です。

No.3 回答者： gyouda1114 回答日時： 2008/09/28 17:53

ボタン登録ではあありませんが　またご存知でしたらお許しを

表内にカーソルを置いて「Ctrlキー＋A」で表を選択
「貼り付け」ボタン右横のプルダウンメニューから「行列を入れ替える」を選択する。

行と列の入れ替え
http://azby.fmworld.net/usage/windows_tips/20060 …

No.4 回答者： imogasi 回答日時： 2008/09/28 20:43

（１）マクロの記録をとってマクロを知り、汎用的に使えるようにコードを修正する。

（１）’マクロを直接作成する。
（２）ＡＬＴキーをキーと決められたキーを同時押しして操作する。
などがあるが、カタチを変えた時の、ＦＲＯＭ－＞ＴＯのＴＯのセル指定などアリ、普通の操作と比べそれほど一発敵ではないと思う。
ーー
（１）は汎用的に修正のが、ＶＢＡのスキルがいる。
（１）’の例
コマンドボタンを貼り付け
Private Sub CommandButton1_Click()
test01
End Sub
ーーー
標準モジュールに
Sub test01()
Set x = Application.InputBox("貼り付け先の先頭セル", Type:=8)
Selection.Copy
x.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
ーー
使い方
元データのセルを範囲指定。
コマンドボタンをクリック。
左上隅セル１つをマウスで指定。ＯＫ