ベストアンサー

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

2003/08/22 09:46

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

lip1007074
お礼率4% (2/41)

Windows XP
回答数3
ありがとう数2

みんなの回答 （3）
専門家の回答

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

ベストアンサー

tatata716
ベストアンサー率18% (63/344)

2003/08/22 10:33 回答No.1

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

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

imogasi
ベストアンサー率27% (4737/17070)

2003/08/22 20:50 回答No.3

Ａ列に色々文字列を入れて 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が文字を強制変換しますので、推測して見てください。

ログインすると、全ての回答が全文表示されます。