Excelでカタカナや英数字の変換

質問

１つのセルの中に【漢字】と【全角カタカナ】と【全角英数字】が入力してあります。この【全角カタカナ】と【全角英数字】を、「範囲選択後Ｆ10キー」等ではなく簡単に手際よく半角に変換する方法はありますか？

回答No.2

Wendy02 · ベストアンサー

こんばんは。

補助列を設けて、例えば、B列とすれば、
B1:～
=ASC(A1)

で、フィルダウン・コピーして、その範囲を、コピー→A1 にセルポインターを置き、→右クリック→形式を選択して貼り付け－[値 (V）]

もっと多い場合は、

シートの下のシート[タブ]を右クリック－コードの表示

Sub 半角変換1()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range(ActiveCell, Cells(65536, ActiveCell.Column).End(xlUp))
　If VarType(c) = vbString Then
　　c.Value = StrConv(c.Value, vbNarrow)
　End If
Next
Application.ScreenUpdating = True
End Sub

このコードを貼り付けます。

Alt + Q で閉じます。後は、セルポインターを変換する一番上に持ってきて、
Alt + F8 で、マクロウィンドウから、「半角変換1」という文字を探して、クリックすればできるはずです。

なお、
For Each c In Range(ActiveCell, Cells(65536, ActiveCell.Column).End(xlUp)) の行だけを
を
For Each c In Selection

とすれば、マウスで選択した部分だけが変換されるようになります。

お礼

こんばんは。
ばんざ～い！出来ました！
ありがとうございました！

回答No.1

wsws

=asc()で出来たと思います。
対するのはjis

お礼

さっそくの回答ありがとうございます！
試してみたところできました(^_^)

補足

再度すみません。Ａ１からＡ２０のセルに既に文字が全角で入っているときはどうすれば良いのでしょうか。Ａ１に関数を入力し、以降のセルの文字を残したまま計算式のみのコピーでの変換は出来ませんよね？