半角数字を全角数字に一括変換したい 書式設定とVBA | EXCELトピックス

2024.11.10
スポンサーリンク
スポンサーリンク

Excelで半角数字を全角数字に一括変換したい

この記事では、Excelで半角数字を全角数字に一括変換する方法について解説します。関数を使用せず、手動で簡単に変換する方法を紹介します。

方法1: Excelの「セルの書式設定」を使う

Excelには「セルの書式設定」によって、表示形式を変更する機能があります。これを使用して、半角数字を全角数字に変換することができます。

手順

  1. まず、変換したいセル範囲を選択します。
  2. 次に、選択したセル範囲を右クリックして、「セルの書式設定」を選びます。
  3. 「セルの書式設定」ダイアログボックスで、「表示形式」タブを選択します。
  4. 「表示形式」タブの中で、「ユーザー定義」を選びます。
  5. ユーザー定義の「種類」に「[$-ja-JP]一般」と入力し、OKをクリックします。

この手順で、半角数字が全角数字として表示されます。ただし、数式やデータの実際の内容は変更されません。あくまで「表示」形式として全角数字に見えるだけです。

方法2: 書式設定を変更せず、手動で変換する方法

Excelで半角数字を一括で全角数字に変換する場合、関数を使わずに手動で変換することもできます。以下の手順で、Excelの「置換」機能を使って半角数字を全角数字に変換します。

手順

  1. まず、変換したいセル範囲を選択します。
  2. 次に、「ホーム」タブから「検索と選択」→「置換」を選びます。（ctrl+hでもよい）
  3. 「検索する文字列」に変換したい半角数字（例えば「1」）を入力します。
  4. 「置換後の文字列」に、対応する全角数字（例えば「１」）を入力します。
  5. 「すべて置換」をクリックすると、選択範囲内のすべての半角数字が全角数字に変換されます。

例: 半角の「1」を全角の「１」に変換

A
1 1
2 2
3 3

「検索する文字列」に「1」、置換後の文字列に「１」を入力し、「すべて置換」をクリックすると、セルの内容が以下のように変わります。

A
1 １
2 ２
3 ３

まとめ

関数を使わずに、Excelで半角数字を全角数字に変換するには、セルの書式設定を変更する方法や、置換機能を使用する方法があります。必要に応じて、どちらの方法でも一括で変換することができます。

発展的方法: VBAで正規表現を使った半角から全角への変換

VBAを使うことで正規表現を駆使して半角数字を全角数字に変換できます。以下の手順で実行できます。

変換したいセルの書式(「ホーム」→「数値」)を必ず「文字列」に指定してください。

VBA作成の手順

  1. まず、Excelのワークブックを開きます。
  2. 「開発」から「VisualBasic」を押して、VBAエディタを開きます。
  3. VBAエディタで、メニューから「挿入」>「標準モジュール」を選択します。
  4. 新しいモジュールが開いたら、以下のコードをコピーして貼り付けます。
Sub ConvertToFullWidth()
    Dim cell As Range
    Dim rng As Range
    Dim i As Integer
    Dim newValue As String
    Dim currentChar As String
    Dim currentAsc As Integer

    ' 選択されているセル範囲を対象に処理
    Set rng = Selection

    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            newValue = ""
            ' セル内のテキストを一文字ずつ確認
            For i = 1 To Len(cell.Value)
                currentChar = Mid(cell.Value, i, 1)
                currentAsc = AscW(currentChar)
                
                ' 半角数字を全角数字に変換
                If currentAsc >= AscW("0") And currentAsc <= AscW("9") Then
                    newValue = newValue & ChrW(currentAsc + 65248)
                ' 半角英字を全角英字に変換
                ElseIf currentAsc >= AscW("A") And currentAsc <= AscW("Z") Then
                    newValue = newValue & ChrW(currentAsc + 65248)
                ElseIf currentAsc >= AscW("a") And currentAsc <= AscW("z") Then
                    newValue = newValue & ChrW(currentAsc + 65248)
                Else
                    ' それ以外の文字はそのまま追加
                    newValue = newValue & currentChar
                End If
            Next i
            ' 変換後のテキストをセルに設定
            cell.Value = newValue
        End If
    Next cell
End Sub

説明

このVBAコードは、選択されたセル範囲内の半角数字を正規表現を使って探し、全角数字に変換します。具体的には、次のように動作します：

  • 正規表現: 半角の数字（0～9）を検索するために正規表現「[0-9]」を使用しています。
  • 変換処理: 半角数字を全角数字に変換するために、ASCIIコードの差を計算し、全角数字を生成しています。
  • 実行対象: 選択したセル範囲に対して処理が行われます。

実行方法

  1. VBAコードを貼り付けた後、エディタを閉じます。（保存などをする必要はありません）
  2. Excelに戻り、変換したいセル範囲を選択します。
  3. 「開発」 から 「マクロ」を押して、「ConvertToFullWidth」を実行します。
  4. 選択したセル内の半角数字が全角数字に変換されます。

Excelで関数を使って半角数字を全角数字に変換する方法

この記事では、Excelで関数を使って半角数字を全角数字に変換する方法を解説します。直接的に全角数字に変換する専用の関数は存在しませんが、複数の関数を組み合わせて変換を実現できます。

開発タブが表示されていないとき

開発タブを表示させるには？ VBAやマクロの設定のために | EXCELトピックス
開発タブが表示されず、VBAやマクロの設定ができない場合の対処法ExcelでVBAやマクロを使用するためには、「開発」タブが必要ですが、初期設定では表示されていません。「開発」タブを表示する設定方法を以下にご紹介します。開発タブを表示させる方法「開発」タブは、Excelのオプション設定で表示することができます。以下の手...
programming-cafe.com
スポンサーリンク