Excelの置換について

質問

Excelにおいて、全角英数字で入力されている文字列を一括して半角英数字に変えたいのですが、どうすればいいのでしょうか？

回答No.4

kazuhiko5681 · ベストアンサー

遅くなりました。修正サンプルマクロを作ってみました。以下のように操作してみて下さい。

１.新規ブックを開き、ＡＬＴ＋Ｆ１１を押してＶＢＥ(Visual Basic Editor)画面を表示させる。
２.ＶＢＥ画面左上にあるVBAProjectと書かれている下のSheet1にマウスをあわせ、ダブルクリックする。
３.下記のコードをＶＢＥ画面右の白い部分にコピー・ペーストする。

Private Sub CommandButton1_Click()

Dim myStr As String
Dim myRange As Range

myStr = Range("A1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Address

For Each myRange In Range("A1:" & myStr)
myStr = Left(myRange.Value, 1)
Select Case myStr

Case "０", "１", "２", "３", "４", "５", "６", "７", "８", "９"
myRange.Value = StrConv(myRange.Value, vbNarrow)
Case "Ａ", "Ｂ", "Ｃ", "Ｄ", "Ｅ", "Ｆ", "Ｇ", "Ｈ", "Ｉ", "Ｊ", "Ｋ", "Ｌ", "Ｍ", "Ｎ", "Ｏ", "Ｐ", "Ｑ", "Ｒ", "Ｓ", "Ｔ", "Ｕ", "Ｖ", "Ｗ", "Ｘ", "Ｙ", "Ｚ"
myRange.Value = StrConv(myRange.Value, vbNarrow)
Case "ａ", "ｂ", "ｃ", "ｄ", "ｅ", "ｆ", "ｇ", "ｈ", "ｉ", "ｊ", "ｋ", "ｌ", "ｍ", "ｎ", "ｏ", "ｐ", "ｑ", "ｒ", "ｓ", "ｔ", "ｕ", "ｖ", "ｗ", "ｘ", "ｙ", "ｚ "
myRange.Value = StrConv(myRange.Value, vbNarrow)

End Select
Next

End Sub

４.ＡＬＴ＋Ｆ１１を押し、Sheet1を表示させる。
５.メニューバーの中にある表示→ツールバー→コントロールツールボックスを順にクリック。
６.ダイアログボックスの一番右の上から２番目にコマンドボタンがあるのでそれをクリック
７.シートの適当な位置をクリックするとコマンド場短が貼り付けられる。
８.ダイアログボックスの一番左上にある三角定規のマークをクリックする。

この状態で、コマンドボタンをクリックしてみて下さい。カタカナとひらがな以外の文字が半角に変換されると思います。
不都合な点がありましたら、またお知らせ下さい。

お礼

何度もすいませんでした。
とても参考になりました。
ありがとうございました。

回答No.3

kamonohashi

置換じゃないのですが、
関数をつかって半角英数に直したものを張り付ける
というのはどうでしょう。
=ASC(文字列)
これで半角になります。
後はコピーして値のみ貼り付けして終わりです。

お礼

参考になります。ありがとうございます。

回答No.2

imogasi

（操作）
編集－置換で「検索する文字列」に複数文字指定が出来れば良いが、出来ないと思う。
（関数）
全セルを対象に式を設定する必要が出てくるが不可能。
自分自身のセル値を使って、変換し自分のセルに戻すことは
出来ない。元の式が崩れる。
（ＶＢＡ）既に＃１でご解答がありますが、ＶＢＡらしく、短く考えました。「置換」のマクロの記録を改造。
Sub test01()
z = "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ"
For i = 1 To 26
Cells.Replace What:=Mid(z, i, 1), Replacement:=Chr(96 + i), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Next i
'----
z = "０１２３４５６７８９"
For i = 1 To 10
Cells.Replace What:=Mid(z, i, 1), Replacement:=Chr(47 + i), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Next i
End Sub
（ＯＫＷＥＢで強制改行される行がありますが元に戻してください。元は１３行です。）

お礼

ありがとうございます。
とても参考になりました。

回答No.1

kazuhiko5681

はじめまして。次の様に操作してみて下さい。
１.新規ブックを開き、ＡＬＴ＋Ｆ１１を押してＶＢＥ(Visual Basic Editor)画面を表示させる。
２.ＶＢＥ画面左上にあるVBAProjectと書かれている下のSheet1にマウスをあわせ、ダブルクリックする。
３.下記のコードをＶＢＥ画面右の白い部分にコピー・ペーストする。

Private Sub CommandButton1_Click()

Dim myColumn As Integer
Dim myRow As Long
Dim i As Integer
Dim j As Long

myColumn = Cells(1, Columns.Count).End(xlToLeft).Column
myRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To myColumn
For j = 1 To myRow
Cells(j, i).Value = StrConv(Cells(j, i).Value, vbNarrow)
Next j
Next i

End Sub

４.ＡＬＴ＋Ｆ１１を押し、Sheet1を表示させる。
５.メニューバーの中にある表示→ツールバー→コントロールツールボックスを順にクリック。
６.ダイアログボックスの一番右の上から２番目にコマンドボタンがあるのでそれをクリック
７.シートの適当な位置をクリックするとコマンド場短が貼り付けられる。
８.ダイアログボックスの一番左上にある三角定規のマークをクリックする。

この状態で、コマンドボタンをクリックしてみて下さい。半角に変換されると思います。

セルに適当にデータを入力してみて下さい。すべて半角で表示されるはすです。

何か解らないことがありましたら、遠慮なくお知らせ下さい。

補足

ご回答ありがとうございます。
とても役に立ちます。
しかし、やってみて気づいたのですが、全角カタカナまで半角になってしまいました。
これは変えたくないですが、できますか？