[[20130423100751]]　『シート内の特定の文字以外を一括削除』（かおりん）　ページの最後に飛ぶ

『シート内の特定の文字以外を一括削除』（かおりん）

業務でエクセルを使い日程表を作成しているのですが、その中で"貼"の文字が含まれるものを残し、それ以外削除したいのですが、なかないい方法がみつかりません。
なかなか先に進めずに困ってますのでどなたか教えて頂けませんでしょうか？
宜しくお願いします。

OSのバージョン：WindowsXP
エクセルのバージョン：Excel2003』

 マクロですが、選択範囲を処理する例です。

 Sub Sample()
    Dim r As Range
    For Each r In Selection
        If InStr(r.Value, "貼") = 0 Then
            r.Clear
        End If
    Next
 End Sub
 (Mook)

 Sub test()
    With Selection
        .Value = Evaluate("if(isnumber(find(""貼""," & .Address & "))," & .Address & ","""")")
    End With
 End Sub
 とか？
 (seiya)

Mookさん、seiyaさん　有難う御座いました。

マクロは初心者なので、挑戦してみます。

（かおりん）

 置換で行う場合。
 3段階の手順を踏む。
 あらかじめ範囲を選択しておく。

 １　置換のダイアログでオプションを開いておく。
 　　「検索する文字列」に「貼」、置換後の文字列には何も入力せず、「書式」ボタンをクリックして「パターン」でそのシートで使われていない色を指定する。
 　　「すべて置換」をクリック。
 　　これで「貼」が含まれるセルに色がつく。

 ２　「検索する文字列」に「*」、「書式」ボタンをクリックして「パターン」で「色なし」を指定。
 　　「置換後の文字列」には何も入力せず「書式」ボタンをクリックして「クリア」をクリックして「ＯＫ」
 　　「すべて置換」をクリック。
 　　これで色が付いていないセルの文字だけ消される。

 ３　「検索する文字列」に何も入力せず、「書式」ボタンをクリックして「パターン」で１で指定した色を指定。
 　　「置換後の文字列」には何も指定せず、「書式」ボタンをクリックして「パターン」で「色なし」を指定。
 　　「すべて置換」をクリック。
 　　これで「貼」が入力されていたセルの色が消える。
 (ねむねむ)

コメント返信：

[ 一覧(最新更新順) ]

[[20130423100751]] 『シート内の特定の文字以外を一括削除』（かおりん） ページの最後に飛ぶ

[[20130423100751]]　『シート内の特定の文字以外を一括削除』（かおりん）　ページの最後に飛ぶ