EXCELで英字を全角→半角にしたい。

質問

EXCEL2000を使用しています。

１．企業データが1万件入ったデータがあります。
２．企業名に含まれる英字を全角→半角にしたいのですが、できますでしょうか？
３．通常ですと=JIS(セル番地)で問題ないのですが、
カタカナや数字は全角のままで、英字だけ半角にしたいのです。

例）
ＮＴＴドコモ株式会社→NTTドコモ株式会社
ＳＯＮＹミュージック１２３株式会社→SONYミュージック１２３株式会社

ご回答の程、よろしくお願い致します。

回答No.2

salf · ベストアンサー

面白そうだったんで、似たような事例を元にやってみました。
中身としては、単純に「Ａ～Ｚ」を一文字づつ「A～Z」へ変更しているだけです。多分もっと早い方法はあるんだろうな～

Sub WEB用文字変換()

Dim SH As Worksheet

Application.ScreenUpdating = False
For Each SH In ActiveWorkbook.Sheets
Call ConvStrCase(SH.Name)
Next SH
Application.ScreenUpdating = True
MsgBox "Complete", vbInformation

End Sub

Private Sub ConvStrCase(strSheetName As String)

Dim Num As String
Dim Alb As String
Dim ConvTbl As String
Dim TargetArea As Range
Dim TargetChar As String

'半角化対象文字
ConvTbl = "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ"
'置換範囲
Set TargetArea = Sheets(strSheetName).UsedRange
'置換
For i = 1 To Len(ConvTbl)
TargetChar = Mid$(ConvTbl, i, 1)
TargetArea.Replace _
What:=TargetChar, _
Replacement:=StrConv(TargetChar, vbNarrow), _
LookAt:=xlPart, _
MatchCase:=False
Next i
Set TargetArea = Nothing

End Sub

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1530399

お礼

早速にご回答いただき、どうもありがとうございました。
おかげさまで、概ねできました。
またよろしくお願いいたします。

補足

早速にご回答頂き、どうもありがとうございます。

１．問題なく全角→半角になり、コンプリートになりました。ありがとうございました。
２．一つお聞きしたいのですが、ワークシート全体を対象とするのではなく、範囲を指定することは出来ますでしょうか？
３．企業の住所やコンタクト情報等々、企業データが入っている為、Sheet1のB列に企業名が入っています。この部分を指定して、変換したいと思いますがいかがでしょうか？

お忙しいところ恐縮ですが、ご回答頂ければ幸いです。

よろしくお願い致します。