文字列内に含まれる空白を置換するマクロの記述方法について

Question

文字列内に含まれる空白二つを,に置換したくマクロを書いたのですが
どうしても上手くいきません
以下のコードが書いたコードになります

やりたいことは

TV パソコン ラジオ ビデオ CDプレイヤー アンプ

処理したい結果↓

TV,パソコン,ラジオ,ビデオ,CDプレイヤー,アンプ

文字と文字の間には空白が二つあります

Sub Sample()

    Dim myRange As Range
    
    
    For Each myRange In Range("A1")

        
        myRange.Replace _
            What:="  ", Replacement:=",", _
            LookAt:=xlPart, SearchOrder:=xlByRows, _
            MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
    Next
End Sub

Answer 1

試行錯誤してなんとか置換できるものとできないものがありますがいくつかは置換できるようになりました
コメント、コードして頂きました皆様本当にありがとうございました

Sub Sample()
Range("A1") = Replace(StrConv(Range("A1"), vbWide), " ", ",")
Range("A1") = Replace(StrConv(Range("A1"), vbWide), "？？", ",")

End Sub

Answer 2

ttyp03様,ryuujinn様

上記のサンプル文字列では「文字コードの違い」が原因です。
スペースやカンマ等の「特殊記号」の場合、昔はよく発生していました。

今回の場合、下記コードで実行してみました。
(セルA1に例示の文字列を代入済み)

Sub ByteCdcheck_Sample()

    Dim myStr As String

    myStr = Range("A1").Value   '例の文字列
    
    '文字列の3文字目のスペース1個のASCIIコードと、
    'Excel手入力の半角スペースのASCIIコードを出力
    
    MsgBox "添付例スペースBYTE:" & Asc(Mid(myStr, 3, 1)) & Chr(13) & _
        "ExcelスペースBYTE:" & Asc(" ")

End Sub

結果ですが、私の環境下(Windows10,Excel2016(32bit))では
添付例スペースBYTE:63
ExcelスペースBYTE:32

と出力されます。

OSやExcelのバージョンがが32bit,64bitでも異なる事があるので、注意が必要です。
バージョンについては、「ファイル」タブの「アカウント」→「Excelのバージョン」で確認可能です。

但し、これを処理するとなると、意外に厄介です。
(Excel-VBAはbit単位の処理は苦手な言語なので…)

正直コピー元データの形式が分からないとこれ以上は何とも…。
力不足で大変申し訳ございません。

Comments

[ryuujinn]

tmkey01さん、ありがとうございます

コードを使い調べた結果、置換できないのは
添付例スペースBYTE:-27526
ExcelスペースBYTE:32

の方です

添付例スペースBYTE:63
ExcelスペースBYTE:32

の方は以下のコードで置換できました

Sub Sample()
Range("A1") = Replace(StrConv(Range("A1"), vbWide), " ", ",")
Range("A1") = Replace(StrConv(Range("A1"), vbWide), "？？", ",")

End Sub

Answer 3

提示のコードでうまく動きましたよ。
Excelのバージョンによる違いでしょうか。
別の方法のコードを貼っておきますのでお試しください。

Dim myRange As Range

For Each myRange In Range("A1")
    myRange = Replace(myRange, "  ", ",")
Next

Comments

[ryuujinn]

ttyp03さん、コード記載ありがとうございます

コードを試してみたのですが、ダメでした
手入力では上手くいくのですが、上記の文字列をコピーし、excelに張り付けると
処理がされませんでした

[ttyp03]

半角スペースがUTF8の NO-BREAK SPACE というものであることはわかったのですが、それをマクロでうまく扱う方法がわかりませんでした。
下記サイトを参考に、マクロではないですが、Excelの置換機能でカンマに置き換えることはできました。
https://techracho.bpsinc.jp/baba/2010_07_22/2178
お試しください。

[ryuujinn]

ttyp03さん、コメントありがとうございます
親切に色々と調べて頂きまして嬉しいです
助かります、ありがとうございました

Answer 4

記載頂いたサンプルをコピーして試したら全然動きませんでした。
置換前の文字列を手入力でスペースを入れてあげると、こちらでは動作しました。
手入力で試されてみてはどうでしょうか？

Comments

[ryuujinn]

yshima1129さん、コメントありがとうございます
手入力で行ったら、できました
しかし、やりたいことは手入力では膨大なため厳しいです
テキストソフトから作ったデータをexcelに張り付けて、
二つの半角スペースを,に置換したいです