こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2005-10-15 15:49:40

QNo.1715680

暇なときに回答ください

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

こんばんは。

補助列を設けて、例えば、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

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

投稿日時 - 2005-10-15 23:10:55

お礼

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

投稿日時 - 2005-10-16 00:19:22

ANo.2

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

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

投稿日時 - 2005-10-15 15:55:54

補足

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

投稿日時 - 2005-10-15 16:20:58

お礼

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

投稿日時 - 2005-10-15 16:11:16

あなたにオススメの質問