• ベストアンサー

全角から半角文字へ一括変換。

☆はじめまして☆ ご存知であれば教えていただきたいのですが、エクセルで全角入力された数字を一括で半角変換したいのです。 また全角ひらがなで入力された文字をまずカナになおし、こちらも同様に半角文字に変換したいです。 またかな文字の”シャ”などを小文字使わずに”シヤ”と変換する方法はありますか? イメージは下記のとおりです。 <例> 123かいしゃ  とうきょうししゃ 0123456 <変換後> 123カイシャ トウキヨウシシヤ 0123456 (GOOで半角文字が掲載できない為表示が全角になってますが、上記全半角大文字ととらえてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • tatata716
  • ベストアンサー率18% (63/344)
回答No.1

作業スペースが必要です。行なり列を挿入して下さい。 ◎全角を半角に A1に全角数字が入っていて、それを半角にしたものをB1へ →B1へ =asc(A1) ◎ひらがなをかたかなへ A1にひらがなが入っていて、それをかたかなにしたものをB1へ →B1へ =PHONETIC(A1) これを組み合わせて 半角かたかなへ →B1へ =asc(phonetic(a1)) あとはB1をコピーして[形式を選択して張りつけ]→値の張りつけ で完了。 >またかな文字の”シャ”などを小文字使わずに”シヤ”と変換する方法はありますか? これに関してはわかりません。

その他の回答 (2)

  • imogasi
  • ベストアンサー率27% (4737/17069)
回答No.3

A列に色々文字列を入れて Sub test01() For i = 1 To 10 Cells(i, 2) = StrConv(Cells(i, 1), vbKatakana) Cells(i, 3) = StrConv(Cells(i, 2), vbNarrow) Cells(i, "D") = Application.WorksheetFunction.Substitute( _ Cells(i, 3), "シャ", "シヤ") Next i End Sub を実行して見て下さい。どうでしょうか。 10をデータ文字列の最下行数で置換えてください。 また上記のSubstituteは関数でも実現できます。 D1に=SUBSTITUTE(C1,"シャ","シヤ")を入れて下に複写してください。シュ、ショも変換するならプログラム行を増やしてください。複数指定は関数では出来ませんが。 OKWEBが文字を強制変換しますので、推測して見てください。

  • tatata716
  • ベストアンサー率18% (63/344)
回答No.2

補足 B1をコピーして値を張りつけた後(B1に張りつけです) A1を削除。

関連するQ&A

専門家に質問してみよう