エクセルデータからスペースを取り除く

質問

エクセルにデータを貼り付けたのですが、下２桁にスペースが入っていて、数値認識がされません。
数値がすべて同一桁数であれば、「データ」「区切り位置」「スペースによって右または・・・」で、下２桁のスペースを削除できます。しかし桁数は様々で、データのプレビューでは、すべて左詰めになっていて、データ量もあるので大変です。
すみません、教えてください。
25,410  
195,346  

回答No.4

kamkamkam3 · ベストアンサー

Alt+F11キーを押します。

出てきたところに下のをコピペで貼り付けてください

Sub 右2文字を取り除く()
Dim myRange As Range
For Each myRange In Range(Selection.Address)
myRange.Value = Left(myRange.Value, Len(myRange.Value) - 2)
Next
End Sub

で、該当データの部分を選択して、Alt+F8で上のマクロを実行します。データは複数範囲せんたくできるので、もし、離れた場所にあるなら、CTRLキーで複数選択できます。

＊＊注意＊＊
右２文字分のデータが消されるので、右に空白なしのデータや、右に１文字分の空白しかない場所でこのマクロをやると、データが消えます。誤ったセルに使わないでください。

余談ですが、VBAのエディタ(ALT+F11で開くやつ)がインストールされていない場合もあるらしいので、そのときは、使用できないか、インストールするしかないです。

お礼

出来ました感謝します。

回答No.5

kamkamkam3

間違えました。手順を。

ALT+F１１キーを押した画面のメニューで「挿入」→「標準モジュール」を選んでください。
それから、コピペしてください。

回答No.3

babi

 というのは、HTMLから貼り付けたのでしょうか？

1#さんのやり方で、
Ctrl + H　で置換してみてはいかがでしょうか？
検索する文字列：" "←半角スペース
置換後の文字列：未入力

で、"すべて置換"でできるかもしれません。

お礼

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

回答No.2

fukkyse

A1にデータがあるとして

=VALUE(SUBSTITUTE(A1," ",""))でいかがでしょうか。

お礼

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

回答No.1

akamanbo

やってみたらスペースがあっても数値として自動認識してしまうので、なんか違うのかも知れませんが、とりあえず置換でスペースをなくしたらどうですか。

お礼

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