半角カナを全角カナに変換したい

質問

表題の通りです。
先輩から引き継いだエクセルのデータが、全角カナと半角カナとの両方を、使い分けなどではなく使用しているものだったので、半角カナを全部、全角カナに変換したいと考えています。
置換機能で50音全部を置換するのは大変ですので、一度に変換する良い方法があれば教えてください。
また、全角アルファベットを、普通の英字（半角アルファベット？）にも変換したいと思っています。

回答No.1

KODAMAR · ベストアンサー

=JIS(セル番地)
で全角に
=ASC(セル番地)
で半角になります。

お礼

早速のご回答ありがとうございました。
かなりの部分はこれで修正できそうです。
この場合、たとえば、
「J&J　就職セミナー」のように、英語と漢字とカタカナが混じっている場合、英語もカタカナも両方とも半角、もしくは両方とも全角にしかできないみたいなのですが・・・。
後は手作業しかないのでしょうか？

回答No.5

imogasi

VBAで全角英字を半角英字にする。
原文はSheet1にあるとする。
Sheet2において、変換表を作る。
（１）Ａ１セルに９０２５、Ａ２に９０２６を入れる。
（２）以下Ａ２５までオートフィル。
（３）Ｂ１セルに=CHAR(a1)を入れる。
（４）Ｂ２よりＢ２５まで式を複写。（Ａ，Ｂ，・・・Ｚの文字が出きる）
（５）Ｃ１セルに９７、Ｃ２セルに９８を入れる。
（６）Ｃ２５までオートフィル。
（７）Ｄ１に=CHAR(c1)を入れる。
（８）Ｄ１をＤ２からＤ２５まで式を複写する。
（a,b,c,・・・・,zの文字が出きる。）
（９）下記のコードをＶＢＥ画面に貼り付け実行する。
Sub test01()
dim sh1 as worksheet
dim sh2 as worksheet
set sh1=Worksheets("sheet1")
set sh2=Worksheets("sheet2")
For i = 1 To 25
a = sh2.Cells(i, 2)
b = sh2.Cells(i, 4)
sh1.select
Cells.Replace What:=a, Replacement:=b, _
LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Next i
End Sub
半角カタカナを全角カタカナに変換するのも、
先に濁点・半濁点（半角２文字－－＞１全角文字）の
テーブルを先に作り変換し、後に１文字の対応表で
変換すれば出来ると思う。

お礼

ご回答ありがとうございます。お礼が遅くなり申し訳ありません。
しばらく他に急ぎの仕事ができてしまい、時間をゆっくり取って、取りかかれない状況だったのですが、ご回答のやり方を試してみようと思います。

回答No.4

momo525

関数を使えば簡単ですよ！
半角の英数カナ文字を全角の英数カナ文字に変えるには「JIS関数」、全角の英数カナ文字を半角に変えるには「ASC関数」を使ってください。
使い方が分からない場合はEXCELのヘルプを参照してください。

お礼

ご回答ありがとうございます。
＃１の方への解答にも書いたとおり、一筋縄ではいかなさそうですが、今回の件で便利な関数の使い方を知ることができました。

回答No.3

noname#29428

関数　→　文字列操作　→　ＪＩＳ　
で半角を全角に変換できますが，これではいけないのでしょうか。

私も教えてで教わったばかりですが。

お礼

ご回答ありがとうございます。
＃１の方へのお礼にも書きましたが、一つのセルに英語とカタカナとが混じっている場合があるので、困っています。

回答No.2

shota_TK

テキストファイルの全角・半角を変換するフリーのソフトがあります．
エクセルのデータをテキストに落としてもOKなら，使えるかも知れませんね．

参考URL：

http://www.vector.co.jp/soft/win95/util/se044276.html?y

お礼

ご紹介ありがとうございます。
タブ区切りテキストに落としてもOKなので、試してみようと思います。