- ベストアンサー
エクセルで一致しないセルを効率的に選択する方法
- エクセル2003を使用している際に、一致しないセルを選択して削除する方法が不明です。
- エクセルのセルには、045から始まる数字の文字列が5000件以上入力されていますが、中には03や06から始まる違う数字も混じっています。
- 03や06から始まるセルをすべて空白にしたいのですが、効率的な方法が分かりません。ctrl+Fを使用しても一致するものしか抽出されず、予測もつかない数字(例:0467、093)が存在し、検索が困難です。
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
例えばA列の2行目から下方にデータがあるとしてA1セルにはデータ、B1セルには選択などと項目名を入力したのちにB2セルにはセルには次の式を入力して下方にオートフィルドラッグします。 =IF(A2="","",IF(LEFT(TRIM(A2),3)="045",””,1)) これで頭が045でない文字列の行のセルには1が表示されます。 そこでA1とB1セルを選択して「データ」メニューから「フィルタ」をクリックします。 B1セルの▼印をクリックしてオプションの1を選択します。 その後に1の表示されているすべての行を選択してDeleteキーを押します。 最後に「データ」から「フィルタ」さらに「オートフィルタ」をクリックして解除すれば045から始まる行のみが残って、そのすべてが表示されます。
その他の回答 (3)
- okormazd
- ベストアンサー率50% (1224/2412)
1. まず,検索したい範囲を選択して,書式を「右詰」にします。 2. 編集-検索 で,「検索する文字列」に「045」を入れて「すべて検索」をします。 3. 下のボックスに表示された該当セル一覧の1行目を選択して,Shiftキーを押しながら最終行をクリックして, 検索されたセルを全部選択します。 4. 選択されたセルの書式を「左詰」にします。 選択を解除して,←これ大事。 5. 「検索する文字列」に「*」を入れ,「書式」をクリックして,「書式の検索」ダイアログで,「配置」-「文字列の配置」を「右詰」にして,「OK」―「すべて検索」をします。 6. 下のボックスに表示された該当セル一覧の1行目を選択して,Shiftキーを押しながら最終行をクリックして, 検索されたセルを全部選択します。これで,「045」じゃないセルが全部選択されます。 7. Deleteキーを押して,空白にします。 8. 書式を元に戻します。 注意,「書式の検索」ダイアログの設定をそのままにしておくと,後で検索するとき,その設定を引き継いで思うような検索ができないことがあるので,表示形式,配置などの設定をすべて「クリア」するとよい。
お礼
回答ありがとうございます。 無事にできました。 いろいろ方法があるのですね。 勉強になりました。
- tom04
- ベストアンサー率49% (2537/5117)
こんばんは! VBAになってしまいますので、参考にならなかったら無視してください。 単に「045」から始まらないセルを空白にするだけで良いのですよね? (空白セルを削除する場合はコードが変わってきます) データは複数行・複数列あるとしています。 一例です。 操作したいSheet見出し上で右クリック → コードの表示 → 白い画面が出ますので、 ↓のコードをこの画面からコピー&ペーストしてマクロを実行してみてください。 Sub test() Dim i, j As Long For i = 1 To ActiveSheet.UsedRange.Rows.Count For j = 1 To ActiveSheet.UsedRange.Columns.Count If Left(Cells(i, j), 3) <> "045" Then Cells(i, j).ClearContents End If Next j Next i End Sub 尚、一旦マクロを実行すると元に戻せませんので別Sheetにコピーしてマクロを試してみてください。 これで「045」から始まるセルのみが残ると思います。m(__)m
お礼
回答ありがとうございます。 マクロを実行というのがわからなかったのですが、回答いただきありがとうございました。
- mu2011
- ベストアンサー率38% (1910/4994)
一例です。 (1)先頭行が見出しでない場合、見出し行を挿入し→データ→フィルタ→オートフィルタ (2)フィルタボタン押下→オプション→抽出条件欄に045、「で始まらない」又は「を含まない」を選択→OKで如何でしょうか。
お礼
回答ありがとうございます。 手順どおりやってみたのですがなぜか空欄セルしか抽出されず045以外の数字で始まるものは抽出されませんでした。 でも空欄セルも削除したいと思っていたので助かりました。 ありがとうございました。
お礼
回答ありがとうございました。 無事にできました。