エクセルマクロ　複数条件のデータを抽出後、それ以外のデータを削除する方法を教えてください！

Question

エクセルでマクロを使ってデータ管理をしています。そのうちの一つなんですが、下記のようなデータがあります。 [コード][数量] DESS　　　10 QWY　　　　2 AFE　　　　12 123BE　　300 124BS　　200 128BE1　　 5 と続いていきます（だいたいデータ量が１万件ぐらいです）このデータのうち、”DESS”と”AFE”、そして末尾に”BE”、”BE1”がつくものだけデータを抽出し、それ以外のデータを削除をしたいのです。以前は、抽出するコードがそれほど多くなかったので、 If Cells(i, 5) <> "DESS" And _ Cells(i, 5) <> "AFE" And _ Cells(i, "E") <> "123BE" Then .Rows(i).Delete と書いて削除していたのですが、BEの頭につく数字のパターンがあまりにも多いので（123BE,125BE，342BE等々、約30ほど）末尾にBEがつくもの、BE１がつくものと、DESS、AFEを残してそれ以外を削除、とマクロを書きたいのですが、どうしてもうまくいかず・・どなたか教えてください！！どうぞよろしくお願い致します！！！

GooUserラック · Accepted Answer

すみません
「If Not InStr(Cells(i, 5).Value, "BE") Then」を「If InStr(Cells(i, 5).Value, "BE") Then」にして下さい。

tom04 · Answer

No.7です。

たびたびごめんなさい。
全く逆のコトをしていました。
無視してください。

どうも失礼しました。m(_ _)m

tom04 · Answer

こんにちは！

＞だいたいデータ量が１万件ぐらいです
というコトですので、オートフィルタで一気にやってみました。
1行目項目行でデータは2行目以降にあるとします。
ただ他の方々の回答を拝見するとE列に「コード」が記載されているのですね？
というコトだとするとE列でオートフィルタをかけています。

Sub Sample1()
    Dim lastRow As Long, myRng As Range
    lastRow = Cells(Rows.Count, "E").End(xlUp).Row
        Application.ScreenUpdating = False
        '▼まず「DESS」と「AFE」の完全一致のE列セルを変数「myRng」に格納//
        Range("E:E").AutoFilter field:=1, Criteria1:=Array("DESS", "AFE"), Operator:=xlFilterValues
            If Cells(Rows.Count, "E").End(xlUp).Row > 1 Then
                Set myRng = Range(Cells(2, "E"), Cells(lastRow, "E")).SpecialCells(xlCellTypeVisible)
            End If
        '▼「BE」が含まれるE列セルを「myRng」に格納//
        Range("E:E").AutoFilter field:=1, Criteria1:="*BE*"
        If Cells(Rows.Count, "E").End(xlUp).Row > 1 Then
            If myRng Is Nothing Then
                Set myRng = Range(Cells(2, "E"), Cells(lastRow, "E")).SpecialCells(xlCellTypeVisible)
            Else
                Set myRng = Union(myRng, Range(Cells(2, "E"), Cells(lastRow, "E")).SpecialCells(xlCellTypeVisible))
            End If
        End If
        ActiveSheet.AutoFilterMode = False
        If Not myRng Is Nothing Then
            myRng.EntireRow.Delete
        End If
        Application.ScreenUpdating = True
End Sub

※　コード内の
＞Array("DESS", "AFE"), Operator:=xlFilterValues
の部分はExcel2007以降で使用可能だったと思います。
お使いのバージョンが2003以前の場合は
少しコードが変わってきます。m(_ _)m

jmuiny · Answer

No.1です。

>Rightのあと、Valueで指定するんですね。
Rightのあと、という訳ではなく、セルの値を書く時はValueを付けた方がいいと思います。

GooUserラック · Answer

それでしたら「No.3」の「If Right(Cells(i, 5).Value, 2) <> "BE" Then」と「 If Right(Cells(i, 5).Value, 3) <> "BE１" Then」を削除して「If Not InStr(Cells(i, 5).Value, "BE") Then」を追加してください。また「End If」が１つ多くなるので１つ削除して下さい。

GooUserラック · Answer

No.3 の補足

②「BE１」を含む物
でしたら「If Right(Cells(i, 5).Value, 3) <> "BE１" Then」を「If Not InStr(Cells(i, 5).Value, "BE１") Then」に変更して下さい。

GooUserラック · Answer

それでしたらこんなのはいかがでしょうか？

---------------------------------------------------------
Sub Sample()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Right(Cells(i, 5).Value, 2) <> "BE" Then
If Right(Cells(i, 5).Value, 3) <> "BE１" Then
If Cells(i, 5).Value <> "DESS" Then
If Cells(i, 5).Value <> "AFE" Then
Rows(i).Delete
End If
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub
---------------------------------------------------------
以下ループ命令の部分が書かれていなかったので大きなお世話かもしれませんが説明しておきます。
※①「Application.ScreenUpdating = False」と「Application.ScreenUpdating = True」は画面の書き換えを止めてスピードアップを図っています。
※②「Cells(Rows.Count, 5).End(xlUp).Row」はＥ列の最後の行になります。
※③ タイトル行があって２行目からデータが始まるのならば「For i = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1」は「For i = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1」に直して下さい。

GooUserラック · Answer

続けて記述されてしまっているので判り難いので条件の確認です。
--------------------------------------------------
次の４つの条件を１つも満たさない物を削除
①「BE」で終わる物
②「BE１」を含む物
③「DESS」と一致する物
④「AFE」と一致する物
--------------------------------------------------
その他確認したい事項
・②の条件の「１」は全角ですよね？
・前後に空白を含んでいた場合、空白も文字列の一部として判定しますか？［ 例：「AFE」はＯＫ、「AFE 」はＮＧ］

jmuiny · Answer

抽出する方をORで記述して、それ以外を削除　とした方が簡単です。

If Cells(i, 5).Value = "DESS" Or _
Cells(i, 5).Value = "AFE" Or _
Right(Cells(i, 5).Value, 2) = "BE" Or _
Right(Cells(i, 5).Value, 3) = "BE1" Then
Else
Rows(i).Delete
End If

エクセルマクロ 複数条件のデータを抽出後、それ以外のデータを削除する方法を教えてください！

すみません

No.7です。

こんにちは！

No.1です。

それでしたら「No.3」の

No.3 の補足

それでしたらこんなのはいかがでしょうか？

続けて記述されてしまっているので判り難いので条件の確認です。

抽出する方をORで記述して、それ以外を削除 とした方が簡単です。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセルマクロ　複数条件のデータを抽出後、それ以外のデータを削除する方法を教えてください！

抽出する方をORで記述して、それ以外を削除　とした方が簡単です。