| 置換処理後も文字列のままにするには |
| 電話番号のセルに不必要に03-xxxx-xxxxのように「-」（ハイフン）をつけてしまい、それが非常にたくさんのデータとして存在しています。これを一括削除したいと思い、置換をしようと、「検索する文字列」条件に「-」とだけ入力し、「置換後の文字列」にはなにも入力しない（ブランク）状態で置換を行なってみましたが、確かに「-」は消えたのですが、それと一緒に電話番号先頭の「０」も消えてしまいます。置換対象のセルの書式は文字列になっていますが、なんとか変換する方法はないでしょうか？ |
| 下記のマクロを標準モジュールにコピーして実行して下さい。 ちゃんと先頭の０が残った形でハイフンが消えます。 Sub TEST1() Dim MyRange As Range For Each MyRange In Range("C1:C4") ' ←実際の範囲に合わせて修正する MyRange.Value = Replace(MyRange.Value, "-", "") Next End Sub |