全角英数文字列を半角文字列に変換

文字列検索するには、半角か全角かのどちらかに統一された方が検索ロジックも易しいと考えられます。昨日の例に付随して作成したサンプルを公開します。

全角ハイフンの文字の長さはフォントによっては、半角ハイフンより短いものもあるようです。
どうしても検索にかからないので不思議でしたが、短いハイフンも全角でした。（笑）

サンプル

Sub Zen2han()
'
' キーワードの全角英数字を半角に変換する
' 作成　2009/07/21
'
    Dim 対象 As Range
   
    Range("A7:A100").Select

    For Each 対象 In Selection
        対象.Value = StrConv(対象.Value, vbNarrow)  ' 全角英数文字を半角文字へ変換
        対象.Value = Replace(対象.Value, "‐", "-")       ' 全角ハイフンを半角ハイフンへ置換

    Next 対象

End Sub