0

値を検索する方法を尋ねなければなりません。違いを削除する

以下のようなデータがcolumn A B C シート(2)のセルA1とセルA1にある場合、「bbb」があります

bbbを含まない行の列AとBのセルを取り除くには、どの関数またはVBAを使用すればよいですか

マクロ記録を試してみますが、うまくいきません

      A                   B                       C

aaa-1.1.1.1         aa1a1a1a1a1               remark

bbb-2.5.2.2         b2b2b2b2b2b2              remark  

ccc-3.3.3.3         c3c3c3c3c3c3              remark

bbb-1.2.2.5         b2b2b2b2b2b2              remark  

ddd-4.1.2.4         d4d4d4d4d4d4              remark

bbb-1.3.2.7         b2b2b2b2b2b2              remark  

bbb-2.2.2.2         b2b2b2b2b2b2               remark

結果は次のようになります

    A                  B                        C
                                              remark

bbb-2.5.2.2         b2b2b2b2b2b2              remark  

                                              remark

bbb-1.2.2.5         b2b2b2b2b2b2              remark  

                                              remark

bbb-1.3.2.7         b2b2b2b2b2b2              remark  

bbb-2.2.2.2         b2b2b2b2b2b2              remark

私が得ることができるすべての助けに感謝します:)

4

2 に答える 2

1

自動化されたソリューションを探していない場合 (たとえば、これは 1 回限りのシナリオであり、プログラミングや記録は必要ありません)、の値にsort基づいてデータを単純Column Aに削除できます。削除プロセスは簡単です。要するに：

  1. 問題のすべての行/列を強調表示する
  2. 右クリック -> 並べ替え -> A から Z に並べ替え
  3. を含む行の上下のすべての行を選択しますbbb。CTRLこれは、選択中に長押しすることで実行できます。
  4. 削除を押します

これらの手順と結果のスクリーン ショットを次に示します。

データを並べ替える ここに画像の説明を入力

上下の行を選択bbb ここに画像の説明を入力

Deleteキーを押す(結果) ここに画像の説明を入力

于 2013-02-12T16:37:24.850 に答える
1

vba を使用する

以下は、空行になると停止します...

x = 1
While Cells(x, 1) <> ""
    If Left(Cells(x, 1), 3) <> "bbb" Then
        Cells(x, 1) = ""
        Cells(x, 2) = ""
    End If
    x = x + 1
Wend
于 2013-02-12T04:36:51.257 に答える