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

全角英数字を半角英数字に変換する:Excel VBA入門

はじめに

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

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

• セルに入力された文字列に全角の数字０,１,２,３・・・,８,９が含まれていたら、その数字を半角に変換します。
• 【コード例A】
  • A2:A3セルを選択して、下記コードを実行すると右隣のセルに全角数字を半角数字に変換して表示します。
  • 文字列の最初の文字から順番に全角数字か否かをLike演算子で判定し、全角数字であったらStrConv関数で半角文字に変換して置き換えています。
  • (注)下記コードの　 Like "[０-９]"　の０、９は全角の文字です。
    

    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 "[０-９]" 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 "[０-９]" 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 "[Ａ-ｚ]"　のＡ、ｚは全角の文字です。
      

      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 "[Ａ-ｚ]" 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

    • 実行後の例
      

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

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

  • 【コード例Ｃ】

    • 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 "[Ａ-ｚ]" Or Mid(c.Value, i, 1) Like "[０-９]" 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 "[Ａ-ｚ]" Or Mid(rData, i, 1) Like "[０-９]" 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
　
　Since2006/2/27