エクセル2003で特殊文字の置換方法

確かにcuctus_200さんのやり方だと置換できませんね。 私が置換に成功したときは、以下のマクロでCHAR(160)を埋め込みました。 これで埋め込んだCHAR(160)は置換できるはずです。 Sub test() Range("A3") = Chr(160) End Sub 同じCHAR(160)のはずなんですがねぇ

こんばんは。 確認しました。確かに、出来ないようですね。 ただ、なぜ、Chr(160)自体が、ワークシートに入り込むのでしょうか？ 元がテキストにしてある限りは、そのようなコードは入らないのではないかと思います。もしかしたら、データベースの区切り文字かな？ 通常の方法では難しいようです。VBAからですと、このような方法が出来るのではないかと思います。 Sub Test2() 　　Dim c As Variant 　　Dim i As Long 　　Dim n As String 　　Dim m As String 　　Dim a() As Byte 　　For Each c In ActiveSheet.UsedRange 　　　　If VarType(c.Value) = vbString Then 　　　　　　For i = 1 To Len(c.Value) 　　　　　　　　n = Mid(c.Value, i, 1) 　　　　　　　　a() = n 　　　　　　　　If Not (a(0) = 160 And a(1) = 0) Then 　　　　　　　　　　m = m & n 　　　　　　　　End If 　　　　　　Next i 　　　　　　c.Value = m 　　　　　　m = "" 　　　　End If 　　Next c End Sub

Chr(160) ↓ ChrW(160) とかChrW(&HA0)で試してみてください。

同じXP+Excel2003の環境で試してみましたが正常に動きました。 コードとしては問題ないと思われます。 どんな状態になるのでしょうか？