次のような内容の数千行の Excel シートがあります。
A1 B1
9-1 アップル
9-2 パイナップル
10-1 グレープ
10-2 オレンジ
10-3 梨
11-1 レモン
数字の後に「-1」以外の文字が含まれる行を削除できる VBA スクリプトはありますか? 結果は次のようになります。
A1 B1
9-1 アップル
10-1 グレープ
11-1 レモン
最初の数字のバリエーションの数はそれぞれ異なります。 1 個だけの場合もありますが、8 個または 9 個になる場合もあります。 各行の「-1」を保持し、残りを削除するだけです。
よろしくお願いします。
答え1
簡単な方法は次のとおりです。
C1 (または最初の使用可能な列) に数式 を入力します
=FIND(-1,A1)。セル ハンドルをダブルクリックするかドラッグして、数式をすべての行にコピーします。これで、 を含むセルには-1数字が入り、その他のセルには と表示されます#VALUE!。列 C 全体を選択し、Ctrl+を押しますF。 をクリックします
Options。#value!に入力しFind what、Look in:ボックスを に変更して をValues押しますFind All。 次に、Ctrl+ を押しA、強調表示されたセルの 1 つを右クリックし、 を選択してDeleteに変更しEntire rowて を押しますOK。