エクセル コマンドボタンで検索したID以外を削除

質問

エクセル　コマンドボタンで検索したID以外を削除

ID、氏名等が入っているシートがあります。
テキストボックスにIDを入力しコマンドボタンを押すことで、
(1)別のシートからデータをコピーし、貼り付ける。
(2)データを並べ替える。
(3)あるセルにIDを表示する。
(4)そのID以外のデータを削除し、そのIDの方のみの一覧表を作成。
ということを行いたいんです。
(1)～(3)は何とかできたんですが、(4)がどうしても分からないんです。

Private Sub CommandButton1_Click()
Worksheets("Sheet1").Activate
Range("A2").CurrentRegion.Select
Range("A2").CurrentRegion.Copy
Worksheets("Sheet2").Activate
Range("A3").Select
ActiveSheet.Paste
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortTextAsNumbers
Range("B2").Select
Range("B2").Value = TextBox1.Value
Unload Me
End Sub

どうか、よろしくお願いします。

回答No.2

xls88 · ベストアンサー

＞回答番号：No.1 この回答への補足

＞Aの列にIDがずらっと並んでいます。
A列にIDが入力されているのなら下記で試してください。

With Selection
For i = .Rows.Count To 1 Step -1
If Range("A" & i + 2).Value <> Range("B2").Value Then
.Rows(i).Delete Shift:=xlUp
End If
Next
End With

＞ID、氏名以外にも入力する項目が8項目あるんですが、
＞その中には入力しない空白のセルも入っています。
現在与えられた情報では明確に答えることができません。
操作対象セル範囲を、CurrentRegionプロパティで取得しています。
CurrentRegionプロパティのヘルプに
オブジェクトを返すプロパティです。
アクティブ セル領域 (Range オブジェクト) を返します。
アクティブ セル領域とは、空白行と空白列で囲まれたセル範囲です。となっています。
従って、データセルの範囲内に、空白セルが点在するような場合は大丈夫だということになります。

ヘルプを見るのは、調べたい単語の文字列内にカーソル（文字キャレット）を置いてF1キーを押してください。
ＶＢＥのヘルプ
http://miyahorinn.fc2web.com/vbabegin/s_02_03.html

デバッグで、F8キーによるステップインで実行をしてみてください。
実行結果から、コードの意味が理解しやすくなります。
デバッグについて
http://members.jcom.home.ne.jp/rex-uchida/vba110.htm

あと、Excelの正しいレイアウト情報と、試されたコード全体を提示してください。
獲得したい結果と合わせて、回答を考える上で、非常に有益になります。

お礼

返答が遅れてしまい、大変申し訳ありませんでした。
自分なりにいろいろ試した結果、

まったく同じ内容のワークシートをもうひとつ作成し（ワークシート2）、IF、VLOOKUPの関数を利用して検索したいIDのみを表記するというようにしました。
検索IDを入力しマクロを実行すると、
１、ワークシート2のすべてをコピー
２、ワークシート3に貼り付け（値のみ）
３、空白行も含めて並べ替え
ということを行うことで、何とか目的は達成できました。

本来ならもう少し簡単な方法もあったかと思いましたし、もっと助けていただいてよりよいものを完成させたかったのですが、時間がなかったために簡素な形で利用することとなりました。
せっかく回答をしていただいたのですが、それを生かすことができず大変申し訳なく思っています。

私の質問に対し、真摯に回答していただき大変ありがとうございました。

回答No.3

xls88

音信不通ですが進展はあったのでしょうか？
まだ未解決状態なら遠慮なく質問してください。
その際、現状のままでよいので、コードを全文提示するようにしてください。

回答No.1

xls88

とりあえず、原始的なやり方ですが
1行毎にIDを確認しながら、IDの異なる行を削除します。
上から削除すると、Excelでは行が移動します。
コードの対象行とずれてしまい間違った行を削除することになります。
この場合は、下から行を削除してやります。

Dim i As Long

With Selection
For i = .Rows.Count To 1 Step -1
If Range("B" & i + 2).Value <> Range("B2").Value Then
.Rows(i).Delete Shift:=xlUp
End If
Next
End With

1行毎に削除するので時間がかかります。

余談ですが、Selectしなくても大丈夫です。
Worksheets("Sheet1").Activate
Range("A2").CurrentRegion.Select
Range("A2").CurrentRegion.Copy
Worksheets("Sheet2").Activate
Range("A3").Select
ActiveSheet.Paste
は、下記のようにまとめられます。
Worksheets("Sheet1").Range("A2").CurrentRegion.Copy _
Destination:=Worksheets("Sheet2").Range("A3")

SortもSelectしなくても大丈夫ですから工夫してみてください。

補足

回答をありがとうございました。
早速試してみました。
しかし、残念なことに、まったく消えなかった上に、Bの列が他の列に比べて一段上に上がっただけの結果になりました。
理由ははっきりとは分かりません。

ID、氏名以外にも入力する項目が8項目あるんですが、その中には入力しない空白のセルも入っています。
それが原因なのでしょうか。

もう少し詳しく説明します。
B2に検索したいIDが入力されます。
Aの列にIDがずらっと並んでいます。
行毎には10項目ほどの入力内容が書かれています。
で、B2＝Aの列に書かれているIDならその行は残す、それ以外のIDは削除するということをしたいんです。

よろしくお願いします。