[[20220107171002]]　『指定したシートの列の該当、複数文字を全て削除』（hiro）　ページの最後に飛ぶ

『指定したシートの列の該当、複数文字を全て削除』（hiro）

表記の通り指定シートの該当列の複数の文字を全て削除したいです。

削除したい文字

+ - * / : ? [ ] （）

以下のようにコードを書いたのですが、うまくいきません

以下のコードですと、一種類しか削除されません。

 '置換対象の列
    Const CONPANY_NAME_COLUMN As Integer = "2"
    '置換前の文字列
    Const SRC_STR As String = "+"
    '置換後の文字列
    Const DEST_STR As String = ""

    '文字列を置換
    Worksheets("sample").Columns(CONPANY_NAME_COLUMN).Replace What:=SRC_STR, _
                                                      Replacement:=DEST_STR, _

2
以下のコードですと、シート上の文字がすべて消えてしまいます。

Cells.Replace what:="+", Replacement:=""
Cells.Replace what:="-", Replacement:=""
Cells.Replace what:="/", Replacement:=""
Cells.Replace what:="*", Replacement:=""
Cells.Replace what:="[", Replacement:=""
Cells.Replace what:="]", Replacement:=""

どなたかご教示お願いします。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 *と?はワイルドカードなので*と?を文字列として扱うには
 *と?の前に~(チルダ)をつける
 Cells.Replace What:="~*"
（どん） 2022/01/07(金) 17:51

＞以下のコードですと、シート上の文字がすべて消えてしまいます。

ろくに解ってないのに、おおざっぱにコードを走らせるのが悪いと思います。
1つづつ試すか、ステップ実行するぐらいはしてください。
そうすれば、どれが該当するかぐらいは解るし、ネットでＸを削除するには？とかで
検索すれば見つかるはず。

（ズボラ） 2022/01/07(金) 18:18

コメント返信：

[ 一覧(最新更新順) ]

[[20220107171002]] 『指定したシートの列の該当、複数文字を全て削除』（hiro） ページの最後に飛ぶ

[[20220107171002]]　『指定したシートの列の該当、複数文字を全て削除』（hiro）　ページの最後に飛ぶ