1. Home »
2. Excel講座の総目次 »
3. Excel VBA入門:目次 »
4. 全角英数字を半角英数字に変換する

はじめに

• データを複数の人で入力したりすると、全角の英数字で入力する人もいれば、半角の英数字で入力する人もいたりしてデータが統一できないことがあります。
  データの検索や抽出などのときには別物と判断されたりして、困ったことになってしまうことがあります。
• このページでは全角英数字と半角英数字を交互に変換するVBAの例を書いています。
• なお、ワークシート関数のASC関数やJIS関数を使用すれば、全角の英数字と記号およびカタカナをすべて変換することができます。
  ただし、数字だけ半角へ変換し、カタカナなどは全角のままといった場合はVBAを使う方が容易と考えます。

全角の数字を半角に変換する

• セルに入力された文字列に全角の数字0,1,2,3・・・,8,9が含まれていたら、その数字を半角に変換します。
• 【コード例A】
  • A2:A3セルを選択して、下記コードを実行すると右隣のセルに全角数字を半角数字に変換して表示します。
  • 文字列の最初の文字から順番に全角数字か否かをLike演算子で判定し、全角数字であったらStrConv関数で半角文字に変換して置き換えています。
  • (注)下記コードの Like "[0-9]" の0、9は全角の文字です。
    
    Sub zen2han()
    Dim c As Range
    Dim i As Integer
    Dim ansData As Variant
    For Each c In Selection
    ansData = ""
    For i = 1 To Len(c.Value)
    If Mid(c.Value, i, 1) Like "[0-9]" Then
    ansData = ansData & StrConv(Mid(c.Value, i, 1), vbNarrow)
    Else
    ansData = ansData & Mid(c.Value, i, 1)
    End If
    Next i
    c.Offset(0, 1).Value = ansData
    Next c
    End Sub
  • 実行後の例
    
• 【コード例B】
  • 上記では「−」が全角のままなので、半角の「-」に変換したい場合は、判定条件に加えればよいでしょう。
    
    Sub zen2han()
    Dim c As Range
    Dim i As Integer
    Dim ansData As Variant
    For Each c In Selection
    ansData = ""
    For i = 1 To Len(c.Value)
    If Mid(c.Value, i, 1) Like "[0-9]" Or Mid(c.Value, i, 1) Like "−" Then
    ansData = ansData & StrConv(Mid(c.Value, i, 1), vbNarrow)
    Else
    ansData = ansData & Mid(c.Value, i, 1)
    End If
    Next i
    c.Offset(0, 1).Value = ansData
    Next c
    End Sub
  • 実行後の例
    

全角のアルファベット(英字)を半角に変換する

• 判定する条件をアルファベットにします。

  • 【コード例B2】

    • (注)下記コードの Like "[A-z]" のA、zは全角の文字です。
      
      Sub zen2hanB2()
      Dim c As Range
      Dim i As Integer
      Dim ansData As Variant
      For Each c In Selection
      ansData = ""
      For i = 1 To Len(c.Value)
      If Mid(c.Value, i, 1) Like "[A-z]" Then
      ansData = ansData & StrConv(Mid(c.Value, i, 1), vbNarrow)
      Else
      ansData = ansData & Mid(c.Value, i, 1)
      End If
      Next i
      c.Offset(0, 1).Value = ansData
      Next c
      End Sub
    • 実行後の例
      

全角の英数字を半角に変換する

• 判定する条件に全角アルファベットと全角数字と全角ハイフンを加えています。

  • 【コード例C】

    • Sub zen2han()
      Dim c As Range
      Dim i As Integer
      Dim ansData As Variant
      For Each c In Selection
      ansData = ""
      For i = 1 To Len(c.Value)
      If Mid(c.Value, i, 1) Like "[A-z]" Or Mid(c.Value, i, 1) Like "[0-9]" Or Mid(c.Value, i, 1) Like "−" Then
      ansData = ansData & StrConv(Mid(c.Value, i, 1), vbNarrow)
      Else
      ansData = ansData & Mid(c.Value, i, 1)
      End If
      Next i
      c.Offset(0, 1).Value = ansData
      Next c
      End Sub
    • 実行後の例
      

半角のカタカナを全角のカタカナに変換する(ただし英数字は半角にする)

• 全ての場合に対応できていません。簡易な例です。
• 一旦すべての文字を全角に変換し、全角の英数字や記号(−だけ)を半角に戻すといった変換をしています。
  よって、全角の英数字は半角に変換されます。
• 【コード例A】
  • Sub han2zen()
    Dim c As Range
    Dim i As Integer
    Dim rData As Variant, ansData As Variant
    For Each c In Selection
    ansData = ""
    For i = 1 To Len(c.Value)
    rData = StrConv(c.Value, vbWide)
    If Mid(rData, i, 1) Like "[A-z]" Or Mid(rData, i, 1) Like "[0-9]" Or Mid(rData, i, 1) Like "−" Then
    ansData = ansData & StrConv(Mid(rData, i, 1), vbNarrow)
    Else
    ansData = ansData & Mid(rData, i, 1)
    End If
    Next i
    c.Offset(0, 1).Value = ansData
    Next c
    End Sub
  • 実行後の例
    

スポンサードリンク
(追記) (追記ここまで)

PageViewCounter
Counter
Since2006/2/27