Excel2003変換機能について

質問

Excel2003を使用しております。
既に全て全角にて入力されている文字のうち、"英数記号のみ"全角から半角に一括変換したいのですが、方法があればお教えいただけますでしょうか。

回答No.2

Wendy02 · ベストアンサー

こんばんは。

標準モジュールに貼り付けてください。

標準モジュールへの取り付け方：

Alt　+　 F11 (Altを押しながらF11）を押すと、Visual Basic Editor 画面が出てきます。
次に、メニューの[挿入]－[標準モジュール]と開けて、クリックすると、画面が現れますので、以下のコードを貼り付けて、

Alt　+　Q で、画面を閉じます。

使い方は、ショートカットやコントロールツールなどのコマンドボタンにつけると便利かと思います。マウスで範囲を指定してから、実行してください。

なお、この種のアドインが見つからないのは、あまりにもメジャーすぎるからだと思います。Word用も含めて、何度もやり直しています。どれがベストとはいえませんが、以下のような正規表現で行うのが楽のようです。

'-----------------------------------------------------------

Sub ZENHAN()
　　Dim Matches As Object
　　Dim Match As Object
　　Dim buf As String
　　Dim c As Variant
　　With CreateObject("VBScript.RegExp")
　　　　.Pattern = "([０-９Ａ-ｚ]+)" '全角英数
　　　　.Global = True
　　　　For Each c In Selection　'マウスで選択
　　　　　　If .Test(c) Then
　　　　　　　 Set Matches = .Execute(c)
　　　　　　　　For Each Match In Matches
　　　　　　　　　　buf = StrConv(.Replace(Match, "$1"), vbNarrow)
　　　　　　　　　　c.Value = Replace(c, Match, buf)
　　　　　　　　Next
　　　　　　　　buf = ""
　　　　　　End If
　　　　Next
　　End With
End Sub

お礼

ご丁寧な回答ありがとうございました。
早速、やってみます。
今後とも宜しくお願い致します。

回答No.1

Cupper

標準ではそのような機能は用意されていません。

カタカナも含めて半角文字（１バイト文字）に変換する関数は用意されていますが、英数字のみを変換する機能はExcelにはありません。

マクロやアドインでそのようなことが可能かと思いますが、アドインは見つけることができませんでした。
VBAを使ったマクロで実行するしか無いような気がします。

※英数カナを全角文字から半角文字に変換する関数：ASC

お礼

やはりそうでしたか。。残念です。
早速のご回答有難うございました。