エクセル 行の並び替え

エクセルでの　行の並び替えの方法で質問があります

多数行のデータの　任意の行同士の並び替え（例えば１５０行目と４５０行目を入れ替える）に

ついてですが、今私は、そのような場合、それぞれ　１５０行目と４５０行目のデータをそれぞれ

コピーし　挿入したあと　古いデータを削除するという方法で行っています。

これで　入れ替えはできるのですが、入れ替えるデータがたくさんあるときは

時間がかかって困っています。

ほかに　もう少し簡単に行の入れ替えを行う方法はあるのでしょうか？あれば

是非教えてください。

初心者なので　ごく基本的なご質問で恐縮ですが

宜しくお願い致します　

No.4 ベストアンサー 回答者： bin-chan 回答日時： 2013/03/20 22:59

＃１です。

７）は、「並べ替え」ボタンのことです。リボン（メニュー）から選んでも可。

この回答へのお礼

私の基本的な質問に再度ご回答くださりありがとうございます

なるほど　Ａ→Ｚ……並べ替えですよね

よく考えればわかることでした

番号を入れ替えて　並べ替えをおこなったら　簡単に

できました。コピーするより全然簡単です

感謝いたします

ただ　MackyNo1様の　並べ替えの方法もドラッグで

簡単にできたので、ＮＯ１様とどちら様をベストアンサーに

させていただくか　ちょっと迷っています

ごめんなさい

質問に　再度答えてくださって大変感謝しています

ありがとう　ございました

お礼日時：2013/03/23 17:05

No.6 回答者： tom04 回答日時： 2013/03/22 00:15

No.5です！

たびたびごめんなさい。

前回のコードで不具合がありました。
↓のコードに訂正してください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から
Dim i As Long, j As Long, k As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
If Target.Column = 1 Then '←A列限定
Cancel = True
i = Cells(Rows.Count, 1).End(xlUp).Row
Set c = Cells(1, 1).Resize(i, 1).Find(what:="", LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
Target.EntireRow.Cut wS.Cells(1, 1)
Else
j = c.Row
k = Target.Row
Target.EntireRow.Copy c
wS.Rows(1).Cut Target
MsgBox j & "行目と" & k & "行目を入れ替えました"
End If
End If
End Sub 'この行まで

ダブルクリックはA列に限定するのを忘れていました。
どうも失礼しました。m(_ _)m

No.5 回答者： tom04 回答日時： 2013/03/21 21:42

こんばんは！

VBAでの一例です。

＞例えば１５０行目と４５０行目を入れ替える
というコトですので、
A列をダブルクリックすると最初にダブルクリックした行と2番目にダブルクリックした行を入れ替えるようにしてみました。

尚、作業用としてSheet2を使用していますので、Sheet2は使っていないSheetにしてください。
そして、A列は1行目からデータの最終行まで空白セルがないという前提です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてA列をダブルクリックしてみてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から
Dim i As Long, j As Long, k As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")

Cancel = True
i = Cells(Rows.Count, 1).End(xlUp).Row
Set c = Cells(1, 1).Resize(i, 1).Find(what:="", LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
Target.EntireRow.Cut wS.Cells(1, 1)
Else
j = c.Row
k = Target.Row
Target.EntireRow.Copy c
wS.Rows(1).Cut Target
MsgBox j & "行目と" & k & "行目を入れ替えました"
End If
End Sub 'この行まで

※　最初A列セルをダブルクリックするとその行は空白になりますが、Sheet2の1行目にそのまま貼り付けています。
※　2番目にダブルクリックする行がかなり離れていて、画面スクロールが大変の場合は
名前ボックス（画面左上のセル番地が表示されているところ）に直接　A400　のように入力してEnterを押下！
これでそのセルが選択されますので、そこでダブルクリックしてみてください。m(_ _)m

この回答へのお礼

ご回答くださりありがとうございます

初心者のせいか、ちょっと　うまくできませんでした

でも教えていただいて　感謝いたします

また　何かわからないことがあったら　ご質問させていただくことも

あるかとおもいますが　その際はよろしくお願いいたします

お礼日時：2013/03/23 17:12

No.3 回答者： MackyNo1 回答日時： 2013/03/20 22:15

行や列の並べ替えは以下のようなマウスおよびキー操作をするのが基本です。

すなわち、移動したい範囲を選択し、周囲にカーソルを置いて、Shiftキーを押しながら移動先にドラッグし、（挿入位置に灰色のマーカーが出るのを参考にして）移動先にドロップします。

ちなみに、Shiftキーを押さないでドラッグした場合は、単純に上書き「移動」になり（数式などは元のセルと全く同じ数式になります）、Ctrlキーを押してドラッグすれば「コピー」です（相対参照の数式は移動先で変更されます）。

この回答へのお礼

分かり易いご回答ありがとうございます

並べ替えはＮＯ１様のご回答で　できたのですが

MackyNo1様の　ドラッグでできる方法が便利なので

とても参考になりました

また　上書きやコピーなどのアドバイスもとても参考に

なりました

ただ　ＮＯ１様が　私の質問に何度もご回答をくださったので

ベストアンサーを　どちら様にするか　ちょっと迷っています

申し訳ありません

アドバイス本当に参考になりました

ありがとうございました

お礼日時：2013/03/23 16:51

No.2 回答者： bin-chan 回答日時： 2013/03/20 20:18

＃１の応用ですが、不要な行の列Ａの値を消去してソートすれば、削除対象行が一塊になります。

No.1 回答者： bin-chan 回答日時： 2013/03/20 20:13

ソート（並べ替え）用の列をひとつ設けるのはいかが？

仮に列Ａを用いるとして。列Ｂが、必要な行を網羅する値があるとします。
１）セルＡ１に値[1]を入力。
２）選択しているセルを囲む太線（ここではセルＡ１を囲む太枠）の右下隅が■になってるので
　　マウスカーソル乗せると黒い＋になるので、ダブルクリック。
３）上記操作で、必要行まで連番が埋まるはず。※Ctrl+↓で確認すること。
４）セルA150（値[150]のはず）を450に書き換える
５）セルA450（値[450]のはず）を150に書き換える
６）セルＡ１の左上何もないところをクリックして、シート内を全選択
７）Ａ→Ｚキー押下。

８）不要なら列Ａ削除

この回答へのお礼

さっそくのご回答ありがとうございます

教えていただいた手順に沿って１）から６）まで

進めていったのですが　７）でつまずきました

７）Ａ→Ｚキー押下。の意味が分かりませんでした

すみません。どのようにすればよいのでしょうか？

お礼日時：2013/03/20 21:10