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

質問

☆はじめまして☆

ご存知であれば教えていただきたいのですが、エクセルで全角入力された数字を一括で半角変換したいのです。
また全角ひらがなで入力された文字をまずカナになおし、こちらも同様に半角文字に変換したいです。

またかな文字の”シャ”などを小文字使わずに”シヤ”と変換する方法はありますか？

イメージは下記のとおりです。
＜例＞
１２３かいしゃ　　とうきょうししゃ　０１２３４５６

＜変換後＞
123カイシャ　トウキヨウシシヤ　0123456
（ＧＯＯで半角文字が掲載できない為表示が全角になってますが、上記全半角大文字ととらえてください。

回答No.1

tatata716 · ベストアンサー

作業スペースが必要です。行なり列を挿入して下さい。
◎全角を半角に
A1に全角数字が入っていて、それを半角にしたものをB1へ
→B1へ　=asc(A1)
◎ひらがなをかたかなへ
A1にひらがなが入っていて、それをかたかなにしたものをB1へ
→B1へ　=PHONETIC(A1)

これを組み合わせて　半角かたかなへ
→B1へ　=asc(phonetic(a1))

あとはB1をコピーして[形式を選択して張りつけ]→値の張りつけ
で完了。

＞またかな文字の”シャ”などを小文字使わずに”シヤ”と変換する方法はありますか？
これに関してはわかりません。

回答No.3

imogasi

Ａ列に色々文字列を入れて
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
を実行して見て下さい。どうでしょうか。
１０をデータ文字列の最下行数で置換えてください。
また上記のSubstituteは関数でも実現できます。
Ｄ１に=SUBSTITUTE(C1,"シャ","シヤ")を入れて下に複写してください。シュ、ショも変換するならプログラム行を増やしてください。複数指定は関数では出来ませんが。
OKWEBが文字を強制変換しますので、推測して見てください。

回答No.2

tatata716

補足

B1をコピーして値を張りつけた後（B1に張りつけです）
A1を削除。