特定の列で見つかった特定のテキストに基づいてすべての行を削除するために役立つVBAコードを真剣に求めている場合は、この記事が役に立ちます。この記事では、特定のテキストが列に見つかった場合に行を削除する方法を学習します。

質問):列Bに「製品B」がある行だけが必要なファイルがあります。他のすべてを削除したいと思います。誰かが私がマクロを書くのを手伝ってくれませんか?以下は、私たちが持っているデータのスナップショットです:

img1

以下の手順に従う必要があります:

[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します

img2

===

標準モジュールに次のコードを入力します:

Sub DeleteRow()

Sheet1.Cells(1).CurrentRegion.Columns(2)を使用

EntireRow.Delete End With End Sub

img3

コードの説明:

ステップ1)上記のコードは、列2から現在の領域を選択します。つまり

製品列ステップ2)フィルターを適用する

img4

ステップ3)表示されているセルが行全体で削除されます。コードを削除します。

残りのデータ、つまり製品Bが列Bに存在する場所が出力になります。

img5

このように、VBAコードを使用して、特定の条件を満たす行を削除できます。

image 19