セルに文字列が含まれている場合は、行全体を削除します。X

Question

VBAを初めて使用していて、ウェブサイトの列セルに単語noneが含まれているすべての行を削除する方法を考え出しています。テーブルには5000以上のレコードが含まれているため、時間が大幅に節約できます。

私は何か提案をいただきありがとうございます。事前に多くの感謝！

http://i39.tinypic.com/5ano1d.png

Answer 1

これはVBAタスクではありません。この特定のタスクは、自動フィルタで最も簡単に解決されます。

1.Insertオートフィルター（エクセルホーム - 2010クリック>（編集）ソート&フィルターで - >フィルター）「ウェブサイトの」列
3.マーク「なし」と削除に
2.フィルターそれら
4絞り込みを解除

Answer 2

これを試してみてください...

Dim r as Range 
Dim x as Integer 

For x = 5000 to 4 step -1 '---> or change as you want //Thanx 4 KazJaw 

    set r = range("E" & format(x)) 
    if ucase(r.Value) = "NONE" then 
    Rows(x).EntireRow.Delete 
    end if 

Next 

Answer 3

これは、別のコメントで示唆したましたが、あなたはこのような何かを試みることができます。

Sub FilterAndDelete() 

Application.DisplayAlerts = False 

    With Sheet1 'Change this to your sheet name 

     .AutoFilterMode = False 
     .Range("A3:K3").AutoFilter 
     .Range("A3:K3").AutoFilter Field:=5, Criteria1:="none" 
     .UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete 

    End With 

Application.DisplayAlerts = True 

End Sub 

私はこれをテストしておらず、メモリからのものであるため、調整が必要な場合もありますが、何千もの行をループせずに作業を完了する必要があります。 UsedRangeが正しいように11月7日を削除するか、.Offset(1,0)の1ではなく2行にオフセットを変更する必要があります。

一般的に、私は.Deleteを実行する前に、適切な範囲が削除されていることを確認するためにチェックする価値がある正しい範囲が削除されることを確認できる方法で、代わりに.Selectでマクロを実行します。

Answer 4

[OK]を私はVBAのためにこれを知っていますが、一度一括オフ削除するためにこれを行う必要がある場合は、次のExcel機能を使用することができます。http://blog.contextures.com/archives/2010/06/21/fast-way-to-find-and-delete-excel-rows/希望これは誰

例が見て助け文字列 "paper"の場合：

1. [検索と置換]ダイアログボックスで、[検索する文字列]ボックスに「paper」と入力します。
2. 「すべて」をクリックして、「用紙」のあるセルのリストを表示します。
3. リスト内の項目を選択し、Ctrl + Aを押して一覧全体を選択し、ワークシート。
4. [リボンのホーム]タブで、[削除]をクリックし、[シートの行を削除]をクリックします。

Answer 5

[開発者]タブで[Visual Basic]に移動し、モジュールを作成します。次のものを貼り付けてコピーします。あなたが望むものに応じて、コードを変更することを忘れないでください。次に、モジュールを実行します。

Sub sbDelete_Rows_IF_Cell_Contains_String_Text_Value() 
    Dim lRow As Long 
    Dim iCntr As Long 
    lRow = 390 
    For iCntr = lRow To 1 Step -1 
     If Cells(iCntr, 5).Value = "none" Then 
      Rows(iCntr).Delete 
     End If 
    Next 
    End Sub 

lRow：現在のファイルが持っている行の数を入れてください。

で数「5」第五（E）欄

Answer 6

のためである「場合に」私は@にMBKの答えを追加したいと思います。同様の問題を解決するのに@ MBKの答えが非常に役立つことがわかりましたが、@ MBKに特定の列をフィルタリングする方法のスクリーンショットが含まれていれば良いでしょう。