行の入れ替えってどうするの？

エクセル上で隣り合わない、行や列を入れ替えることはできるのでしょうか？
　例えば、行５と行１０のデータをそっくり入れ替えたい。
今はコピーしてクリップボードに貼り付けて、それをそれぞれの行に貼る作業の仕方です。もっと効率のよい方法があれば教えてください。
　

No.1 ベストアンサー 回答者： ransuke 回答日時： 2002/06/26 11:48

クリップボードの機能を使わなくても、入れ替えたい行のデータをクリックし、マウスを近づけ矢印が出たらデータの移動ができるのでとりあえず他の行に持っていき、もって行きたい行のデータをのけてから持っていくと簡単ですよ。

うまい説明でなくてごめんなさい。お確かめください。

No.3 回答者： imogasi 回答日時： 2002/06/26 21:08

#1の解答は便利ですが、やってみると、（１）１行挿入するか（２）余白行が近くにあるか、（３）未使用セルが近くにないと不便ですね。

「置き換えますか」とは聞いて
くるものの、挿入しますかと聞いて来たり、指定
できないので不便です。（３）の場合は良いです。

No.2 回答者： BlueRay 回答日時： 2002/06/26 12:46

マクロでよければ、以下のマクロを入力して使ってみてください。

使い方：２箇所選択後、以下のマクロを実行すると入れ替えをします。
※セル、列、行いずれでも動作します。
　選択個所が２箇所以外だとエラーメッセージを出します。

mondaminさんの例だと、５行目と１０行目を選択してマクロを実行すれば入れ替えされます。

'*****　ココから　*****
Sub Swapper()
'
'　選択は必ず２つ
'
　　If Selection.Areas.Count = 2 Then
　　　　strSwap = Selection.Areas(1).Value
　　　　Selection.Areas(1).Value = Selection.Areas(2).Value
　　　　Selection.Areas(2).Value = strSwap
　　Else
　　　　MsgBox "入れ替えできません。"
　　End If
End Sub
'*****　ココまで　*****