エクセルで選択した行以外を削除する方法

エクセル2003を利用しております。
選択した行を消すのではなく、選択した行以外の行を削除したいのですが、そういった機能はありますでしょうか。
ご存じの方教えていただけますと幸いです。

よろしくお願いします。M(_ _)M

No.4 ベストアンサー 回答者： imogasi 回答日時： 2008/10/04 19:53

#3です。

それらしきものをVBAで作ってみました。
シートにコマンドボタンを１つ貼り付け。
そのクリックイベントに
Private Sub CommandButton1_Click()
d = Range("A65536").End(xlUp).Row
For i = d To 1 Step -1
If Intersect(Worksheets("Sheet1").Range("A" & i & ":Z" & i), selection) Is Nothing Then
Rows(i).EntireRow.Delete
Else
End If
Next i
End Sub
ーー
A列で最終行を判断しています。
利用操作
どの列でもよいからA-Z列の範囲内で残す行のセルを１列以上の範囲内で範囲指定する。
そしてボタンをクリック
（安易指定した以外の行が削除される）
注意
範囲指定してないで実行するとすべてデータが消える危険性アリ。
そういうことで使いずらいが、良い方法はなさそう。

この回答へのお礼

回答ありがとうございました！

VBAじたいよく分かってないんで、ちょっと無理そうです(> <)
せっかく作っていただいたのにスイマセンM(_ _)M

でも参考になりました！！

お礼日時：2008/10/05 00:14

No.6 回答者： hallo-2007 回答日時： 2008/10/05 20:08

Webからの注文メールから売上、出荷までの処理でしょうか？

ちなみに近い内容をエクセルで行っています。
１、Web上から注文のメールが送信される。
２、エクセル（BASP21使用して）でメールデータを受信
３、VBAにて出荷データ（ヤマト運輸データ、納品書データ）に変更して物流部門へ転送
４、物流部門で納品書、送り状が印刷され出荷
一連の作業がエクセルで可能です。
VBAの知識が必要です。

No.5 回答者： argument 回答日時： 2008/10/05 02:29

はじめまして　w-booking　さん

眠いですね、気がつけばもう2時なんて・・
まぁそんなことはさておき以下を回答とします。



Sub test()
'行を事前に選択しているものとする(例ではしかたないので選択している)
Rows("2:3").Select '使う場合は削除する（仮に2～3列を選択していた場合

Application.DisplayAlerts = False: mysheetname = ActiveSheet.Name: dummyname = "Dummy": Sheets.Add(After:=ActiveSheet).Name = dummyname: Sheets(mysheetname).Select: Selection.Copy: Sheets(dummyname).Select: Rows("1:1").Select: Selection.Insert Shift:=xlDown: Sheets(mysheetname).Select: Application.CutCopyMode = False: ActiveWindow.SelectedSheets.Delete: Sheets(dummyname).Select: Sheets(dummyname).Name = mysheetname: Application.DisplayAlerts = True
End Sub


問題は列ではなく行でしたよね？
アクティブシート名を保持(元シート)、ダミーシート展開、元シート選択、選択されている行コピー、ダミーシート選択、A1選択、下にシフトしながら選択されていた行貼り付け、元シート選択、コピー状態解除、元シート削除、ダミーシートを元シート名にリネーム。
で何事もなかったかのように選択されている行以外が削除されたといえるかと思います。

結局1番さんの答えはこうなるのかな？

追加処理・処理違い・補足等あればいってください。
また、仮に私の回答により解決した場合、私にポイントを絶対振らないでください。

No.3 回答者： imogasi 回答日時： 2008/10/04 12:13

そういった機能はありません。

既に出ているご回答の方法か、
ＶＢＡで、シートにボタンをつくり、そのクリックイベントに
選択した行かどうか判別し、でなければ削除するプログラムをくむ。

No.2 回答者： hayasi456 回答日時： 2008/10/04 11:16

なさそうです。

選択した行をコピーして別のシートに貼り付け
元のシートを削除してはいかがですか

「形式を選択して貼り付け」「列幅」も必要かもしれません。

この回答へのお礼

回答ありがとうございます。
NO1さんにもお返事させていただいたのですが、結局はその方法がベストなんですね・・。

ありがとうございました！

お礼日時：2008/10/05 00:09

No.1 回答者： hallo-2007 回答日時： 2008/10/04 11:12

>選択した行以外の行を削除したいのですが、そういった機能はありますでしょうか。

そういった機能は？？
選択した行を別の新しいシートに貼り付けるではダメなのでしょうか。

この回答へのお礼

回答ありがとうございます。

使い方として

ネットショップから注文情報をCSV形式に書き出し
↓
不要な行の削除（ここで必要）
↓
エクセル形式で保存
↓
送り状発行ソフトでエクセルデータの読み込みを考えております。

上記毎日の作業なので、1手でも少ない動きで業務を行えないかと
ご相談させていただきました。

しかし希望の機能はないとのことですので、結局はNO,1さんの回答が一番現実的かなと思います。

ご回答ありがとうございました！

お礼日時：2008/10/05 00:07