エクセルでスペース（空白）を削除するには？

質問

銀行の取引照会をしたものをエクセルに移しています。
「○，○○○_ 円_ 」というように、円の前後にスペースが入ってしまいます。
計算に利用したいので、金額の数値のみをセルに残したいのですが、
置き換え機能を使って円は消えるのですが、半角スペース２つが残ってしまいます。
どのようにしたら＿円＿の＿部分を簡単に削除することができるのでしょうか？

回答No.2

noname#204879 · ベストアンサー

それ、半角スペースに見えるが、実はそうではない？
試しに、半角スペースに見える「_」部分をコピーして[検索する文字列]欄にペーストして[置換]しみみたら？

お礼

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

セルの内容では、確かに半角スペースなのですが・・・
とういうものでしょうか。

回答No.6

bunjii

>変わりません。
それは残念ですね。
データの見落としが無く期待通りの置き換えができないのはExcelの機能の一部が壊れているかもしれませんので修復または再インストールしてみると良いでしょう。

回答No.5

bunjii

>例えば、１セルの内容が「1,234 円 」という状態です。
>エクセルでセルのテキストを見ると円の両脇に半角スペースが入っています。
それであれば置換で「置換する文字列」を円の両脇に半角スペースとして、「置換後の文字列」に何も入れない状態で「すべて置換」を実行すれば選択されたセルは一挙に数値に置き換わります。

質問の様子では_ 円_ となっており、半角のアンダースコアと空白がありましたので老婆心ながら確認させて頂きました。

補足

＞
それであれば置換で「置換する文字列」を円の両脇に半角スペースとして、「置換後の文字列」に何も入れない状態で「すべて置換」を実行すれば選択されたセルは一挙に数値に置き換わります。

変わりません。

回答No.4

tom04

こんにちは！
横からお邪魔します。
VBAになってしまいますが、一例です。

具体的なレイアウトが判らないので、Sheet全体で置換してみました。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペースト　→　Excel画面に戻りマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
ActiveSheet.Cells.Replace what:=" ", replacement:="", lookat:=xlPart
End Sub 'この行まで

※　これでもスペースが残っているのであれば、半角スペースではなく、
全角スペースかもしれませんので
その場合は↓のマクロを実行してみてください。

Sub Sample2()
Dim c As Range
For Each c In ActiveSheet.UsedRange
c = Replace(StrConv(c, vbNarrow), " ", "")
Next c
End Sub

お望み通りになれば良いのですが・・・m（_ _）m

回答No.3

bunjii

>どのようにしたら＿円＿の＿部分を簡単に削除することができるのでしょうか？
「○，○○○_ 円_ 」の中は○を全角数字に置き換えた状態でしょうか？
１，２３４_ 円_ であれば下線の入った半角文字は空白ではなくアンダースコアなので正しい文字として入力しないと検索できません。

http://tennensui.sakura.ne.jp/pcrikai/category3/entry69.html
http://support.justsystems.com/faq/1032/app/servlet/qadoc?QID=043929

補足

例えば、１セルの内容が「1,234 円 」という状態です。
エクセルでセルのテキストを見ると円の両脇に半角スペースが入っています。

回答No.1

aokii

" "（半角スペース）を""（空白）に置き換えます。

補足

置き換え対象がみつかりませんになります。