Ｅｘｃｅｌで全角数字と半角数字の混在について

質問

Excelについて、以下のように全角数字と半角数字が混在しているワークシートがあるので、全部を半角数字に置き換えることは出来ないでしょうか？
ＥＺ１２３
123
４８６
このように文字列としての数字・数値としての数字が混在しています。これらを全て半角数字にしたいのですが。あくまでも、見栄えの問題ですので、特に、計算等の必要はありません。
　よろしくお願いします。

回答No.1

papayuka · ベストアンサー

Sheet1のA1にデータがあるとして、別シートに =ASC(Sheet1!A1) のようにしてから、元のシートに値で貼り付けるとか、、、

お礼

ありがとうございました。
簡単な方法ですので、採用させていただきます。

回答No.3

imogasi

関数式で、A列にデータがあるとして、空きの列のB1に
=IF(ISNUMBER(A1),ASC(A1)*1,ASC(A1))
でどうでしょう。
単純に=ASC(A1)でも良いかも知れません。
全角に統一は=JIS(A1)です。
全角数字は書式を文字列にして全角で入力しました。
（例）
あｄｓ２３４ あds234　（左詰め）
234 234　（右詰め）
２３４ 234　（左詰め）

お礼

ありがとうございました。
　応用が利きそうですので、参考にさせていただきます。

回答No.2

gicchon

あなた用にマクロを作成してみました。
Sub 全角2半角()
For Each a In Selection
Range(a.Address).Formula = StrConv(a,vbNarrow)
Next
End Sub
後は、変換したい範囲を選択してマクロの実行。
便利でしょ？

お礼

ありがとうございます。
流石ですね。VBAをかじり始めた私にとってすごく参考になりました。