[[20030915172359]]　『数字の置換』（たけ）　ページの最後に飛ぶ

『数字の置換』（たけ）

こんにちは。エクセル初心者です。シート内のすべての全角数字を一発で半角数字に置換する方法はないでしょうか。０から９まで一文字ずつするしかないでしょうか。

 「０から９まで一文字ずつ置き換えする作業」を「マクロの自動記録」しておけば、
 次回からは自動作成されたマクロを使うことで、一気に処理できますよ。
  (INA)

 (INA)san　レスありがとうございます。やっぱりマクロですよね．．．置換のオプションとかの技がないものかと思ったのですが．．．登録しておきます。ありがとうございました。

 一発でも 置換でもないんですが(^^;
 A列に全角数字があるとして B列を挿入
 B1に=ASC(A1) セル右下隅フィルハンドルを↓ドラック
 ご存知でしたらすみません(nora)

もし '１２３４５のように全て全角数字で入力されているなら、

一つ目の方法として、どこか空きのセルに半角数字の1を入力しておきコピーして、

二つ目の方法として、全角数字が入っているセル範囲を選択して、

もし 'Ａ１２３４５のように文字が混ざる場合で、文字（この場合は英字）も
半角にしてしまっていいのなら、

一つ目の方法としてnoraさん紹介のascを使う。

二つ目の方法として一度text形式あたりで保存し、wordで全角<->半角変換後、Excelに値貼り付けで戻す。

そういえば以前に全角数字のみを半角にとかいうのがあったような気がするので、
ユーザー関数形式でage。

 （ramrun）

 Function f2h(ByVal adr As Range) As String
    Dim ch As String, buf As String, n As Integer
    buf = Empty
    For Each ad In adr
        For n = 1 To Len(ad.Value)
            ch = Mid(ad.Value, n, 1)
            If "０" <= ch And ch <= "９" Then
                buf = buf & Chr(Asc(ch) - &H821F)
            Else
                buf = buf & ch
            End If
        Next n
    Next ad
    f2h = buf
 End Function

コメント返信：

[ 一覧(最新更新順) ]

[[20030915172359]] 『数字の置換』（たけ） ページの最後に飛ぶ

[[20030915172359]]　『数字の置換』（たけ）　ページの最後に飛ぶ