Excel vbaのことで教えてください。A列にスペースを含む値(※)が並んでおり、このスペースを除

Excel vbaのことで教えてください。A列にスペースを含む値(※)が並んでおり、このスペースを除外するモジュールを作れないかを検討中です。

(※)体系:半角スペース＋整数(桁数の上限なし).小数2桁

例) 10.10
927.06
5750.43
10020.00

特殊スペースにつきreplaceでの除外ができない値につき、スペース以外の値を&で繋げて、あとで全て結合するように一律置き換えたいのですが、整数部分が可変につき、どのように作れば良いかがわからずに困っています。お助けください。

No.2 ベストアンサー 回答者： fujillin 回答日時： 2021/06/23 14:51

こんにちは

これ（↓）の続きですよね？
https://oshiete.goo.ne.jp/qa/12424790.html

＞特殊スペースにつきreplaceでの除外ができない値につき、～～
それって、スペースではないのでは？
（なので、前回は文字コードを確認できるような回答もしておいたつもりですけれど…）

「スペース」と称するものの内容が不明なので、いっそのこと、数字以外をReplaceで削除してしまえば良いのでは？
（対象にE表記や8進、16進表記などがあるとダメですけれど・・・）
以下では、ひとまず、B列に置き換え後を表示するようにしてあります。

Dim reg As Object, c As Range
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "[^0-9\.]"
reg.Global = True

For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
c.Offset(, 1).Value = reg.Replace(c.Value, "")
Next c

この回答へのお礼

助かりました。

お礼日時：2021/06/23 15:18

No.1 回答者： tatsumaru77 回答日時： 2021/06/23 13:50

「特殊スペース」の意味がよくわかりませんが、

range("A1").value = trim(range("A1").value)
のようにtrim関数で空白を削除できませんでしょうか。

空白が1□0.10のように数字のなかにある場合は、trimで削除することはできませんが、
□10.10□のように数字の前後にある場合は、trimで削除することが可能です。（□は半角のスペースを意味します）

この回答へのお礼

ありがとうございました。

お礼日時：2021/06/23 15:18