EXCEL変換方法

質問

シートで全角カナから半角カナへと
一気に変換したいのですが？
出来る方法があれば教えてください。
宜しくお願い致します。

回答No.6

imogasi · ベストアンサー

VBAですが下記でできました。B列を使わないで済みます。
Sub test01()
d = Range("A65536").End(xlUp).Row
For i = 1 To d
Cells(i, "A") = StrConv(Cells(i, "A"), vbNarrow)
Next i
End Sub
A列に全角カナがある場合の例です。
B列なら
d = Range("A65536").End(xlUp).RowのAをBに
Cells(i, "A") （２箇所）の"A"を"B"に変えてください。

お礼

ありがとうございます。
一度挑戦してみます。

回答No.5

ro-chan

済みません。質問を読み違えました。
ＡＳＣ関数でできます。

回答No.4

merlionXX

ASC関数ですね。
たとえばA列のA1から下に全角カナのデータがあるのなら
となるのセルにでも
=ASC(A1)
として、下までドラッグしてコピーします。

なお、JIS関数は逆に半角文字を全角文字にします。使い方は同様です。

お礼

ありがとうございます。
一度やってみます。

回答No.3

ro-chan

＝jis(a1)

a1　には、変換したいセルを指定。

ご希望のように一気に変換することはできませんが。

a1　を　sheet1!a1 などとして、sheet2に、数式を入力すれば、変換できます。
数式を残したくなければ、コピー－形式を選択して貼り付け－値を選択します。

お礼

ありがとうございます。
JISは半角から全角と記載されてました。

回答No.2

handomari

以前に同様の処理をしたことがあります。

変換したい範囲をWordにコピーして、Wordでメニューの「書式」－「文字種の変更」で半角にした後、Excelにコピーで戻した方が簡単だと思いますよ。

回答No.1

ro-chan

JIS関数でできると思います。

補足

JIS関数ですか。
設定方法があれば、
教えて戴きたいのですが。