- ベストアンサー
半角カナを全角カナに変換したい
表題の通りです。 先輩から引き継いだエクセルのデータが、全角カナと半角カナとの両方を、使い分けなどではなく使用しているものだったので、半角カナを全部、全角カナに変換したいと考えています。 置換機能で50音全部を置換するのは大変ですので、一度に変換する良い方法があれば教えてください。 また、全角アルファベットを、普通の英字（半角アルファベット？）にも変換したいと思っています。
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (4)
- imogasi
- ベストアンサー率27% (4737/17070)
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 半角カタカナを全角カタカナに変換するのも、 先に濁点・半濁点（半角２文字－－＞１全角文字）の テーブルを先に作り変換し、後に１文字の対応表で 変換すれば出来ると思う。
お礼
ご回答ありがとうございます。お礼が遅くなり申し訳ありません。 しばらく他に急ぎの仕事ができてしまい、時間をゆっくり取って、取りかかれない状況だったのですが、ご回答のやり方を試してみようと思います。
- momo525
- ベストアンサー率55% (10/18)
関数を使えば簡単ですよ！ 半角の英数カナ文字を全角の英数カナ文字に変えるには「JIS関数」、全角の英数カナ文字を半角に変えるには「ASC関数」を使ってください。 使い方が分からない場合はEXCELのヘルプを参照してください。
お礼
ご回答ありがとうございます。 ＃１の方への解答にも書いたとおり、一筋縄ではいかなさそうですが、今回の件で便利な関数の使い方を知ることができました。
関数 → 文字列操作 → ＪＩＳ で半角を全角に変換できますが，これではいけないのでしょうか。 私も教えてで教わったばかりですが。
お礼
ご回答ありがとうございます。 ＃１の方へのお礼にも書きましたが、一つのセルに英語とカタカナとが混じっている場合があるので、困っています。
- shota_TK
- ベストアンサー率43% (967/2200)
テキストファイルの全角・半角を変換するフリーのソフトがあります． エクセルのデータをテキストに落としてもOKなら，使えるかも知れませんね．
お礼
ご紹介ありがとうございます。 タブ区切りテキストに落としてもOKなので、試してみようと思います。
お礼
早速のご回答ありがとうございました。 かなりの部分はこれで修正できそうです。 この場合、たとえば、 「J&J 就職セミナー」のように、英語と漢字とカタカナが混じっている場合、英語もカタカナも両方とも半角、もしくは両方とも全角にしかできないみたいなのですが・・・。 後は手作業しかないのでしょうか？