VBAでシート上のnbspを一括削除する方法

Question

いつもお世話になっております。

シートにnbsp（ノーブレークスペース）が存在する場合、見た目はデータなしですが、データ在りとなり正しい件数が出せずに困っています。そこでnbspをVBAで削除しよう思いました。ですが、１セルずつReplace関数で削除すればできますが、範囲指定でReplaceメソッドで削除すると削除ができません。

Range("A1")=Replace(Range("A1"),ChrW(160),"") →削除できる
Sheet1.Cells.Replace(ChrW(160),"") 　　　　　 →削除できない　（追記参照：できました）

質問は２つあります。
１＿一括でnbspを削除するにはどうしたらよいでしょうか。
２＿Mac版のExcelの場合、ChrWが使えないとネットにありましたが、Macの場合どのようにすればよいでしょうか。
また、MacとWindowsで共通のコードがあれば教えていただきたいです。

どうぞよろしくお願いいたします。

追記）すみません。１に関しては解決しました。シートに保護がかかっていて置き換えができなかったということに気づきました。お恥ずかしい限りです。＞＜
できましたら２がお分かりの方がいらっしゃったらご教示いただけませんでしょうか。
MacOSの違う方にも使っていただく予定なので、Windowsと同等にしたいと考えています。
よろしくお願いいたします。

Answer 1

Replace関数とRange.Replaceメソッドは別物です。
前者のコードはReplace関数、後者のコードはRange.Replaceメソッド。

Replace 関数 (Visual Basic for Applications) | Microsoft Docs

Range.Replace メソッド (Excel) | Microsoft Docs

Range.Replaceメソッドは、置換ダイアログの設定を引き継ぎますので、明示的に引数で設定を指定するようと、上記のリンク先に記述があります。
部分一致(LookAt:=xlPart)で検索するように引数で指定すればいいでしょう。

Sheet1.Cells.Replace What:=ChrW(160), Replacement:="", LookAt:=xlPart

引数名は省略することもできます。

Sheet1.Cells.Replace ChrW(160), "", xlPart

Comments

[poporon7]

hatena19様
丁寧に教えていただきありがとうございます。
Replaceの関数とメソッドの使い方に関してあいまいな点がありましたので、これを機に勉強したいと思います。部分一致の件、承知いたしました。試してみます。ありがとうございました。

Answer 2

Macでも動作するはず。

    Dim b(0) As Byte
    Dim s As String
    
    b(0) = 160
    s = b
    Sheet1.Cells.Replace s, ""

Comments

[poporon7]

jinoji様
b(0)について調べました。Byte型配列というのですね。この存在を知りませんでした。この方法を使えばmacでもnbspが削除できるということを教えていただきありがとうございました。目的が達成できたのでベストアンサーとさせていただきます。