こんにちは。

エクセルで住所録作りました。
全角で入力してしまった郵便番号を
半角に変更したいのですが
一気に変更する方法ってあるのでしょうか?
全部入力しなおすのは大変なので方法を知りたいです。

ご存知の方、教えて下さい。

OSはWin98、Excel2000です。
宜しくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

こんにちは



 A列に郵便番号が入力されているとして、以下の手順でいかがでしょうか?

1.A列を選択
2.Ctrl+H (メニュー[編集]-[置換])
3.[検索する文字列]に - を入力
4.[置換後の文字列]には何も入力しないで、[全て置換]ボタンをクリック
→これで数値化され、半角で表示されます。
5.Ctrl+1 (メニュー[書式]-[セル])
6.[表示形式]タブの[分類]で その他 を選択
7.[種類]で 郵便番号 を選択
8.[OK]ボタンをクリック

参考URL:http://www2.odn.ne.jp/excel/
    • good
    • 0
この回答へのお礼

kbonbさん、早速の解答ありがとうございました。
解決できました。
関数を使わなくても解決できたのでとても嬉しいです。
ありがとうございました。

お礼日時:2001/10/29 23:21

仮にエクセルのA列に郵便番号が全角文字で入っているとする。


データの入っていない列を、仮にX列とする。
X1のセルに=ASC(A1)と入力する。
住所録の最終行まで(X2から最終行まで)にX1の式を
複写する。
X列が半角数字になっていることを確かめた上、X列をA列に値の複写をする。X列は抹消しておく。
こう言うやり方はどうでしょうか。
    • good
    • 0
この回答へのお礼

imogasiさん、早速の解答ありがとうございました。
解決しました。
エクセルにはたくさん関数があるんですね。
驚きです。

お礼日時:2001/10/29 23:18

ASC関数を使います。



1.郵便番号の入っている列(仮にA列とする)の右側に列を2列挿入します。
2.元データが入っているセルをA2とすると、B2のセルに"=asc(a2)"の計算式を入れます。
3.B2のセルをデータの最終行(n行とする)までコピーし、貼り付けます。
4.B2~B(n)までの範囲をコピーします。
5.C2のセルを右クリックし、「形式を選択して貼り付け」→「貼り付け・値」にチェックを入れ、OKを押します。
6.元データ(A列)、計算式(B列)を「列の削除」で削除します。
    • good
    • 0
この回答へのお礼

Taninohitoさん、早速の解答ありがとうございました。
解決できました。
エクセルって奥が深いですね。

お礼日時:2001/10/29 23:15

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q列ごとに全角英数・全角カナ・半角カナしか入力できないフォーマットをつくりたい

エクセルで基本フォーマットを作り、他の人に配布&入力してもらった後、全てを集計&データベース化する必要があるのですが。

各列に設けた項目により、‘全角英数のみ’‘全角カナのみ’‘半角カナのみ’の入力規則を設けた後、ロックをかけてみたのですが、変換できてしまう…?
全角英数&カナに関しては【=LEN()*2=LENB()】で逃げれたように思うのですが、‘半角カナのみ’の入力設定がわかりません…;;

ちなみに、別の列に入力したものを数式で半角に変換する方法は、今回のフォーマットには使いたくないのですが…??

どなたか、お助けください…**

Aベストアンサー

入力規則の[日本語入力]タブの設定は、
あくまでIMEを自動的に切り替えるだけのものですから、
残念ながら、指定した種類の文字以外の入力を禁止することはできません。

また、「全角英数のみ」「全角カナのみ」「半角カナのみ」を
簡単に判定する方法も、おそらくないと思います。

以下、かなり無理矢理ですが、
データ>入力規則>設定タブ>ユーザー設定>数式で…
--------------------------------------------------------------------
●A案:コード番号で指定する

例えば「半角カナのみ」の場合
(小書き文字,鍵括弧や長音記号など一部の記号を含む)

 =AND(161<=MIN(INDEX(CODE(MID(A1,ROW(INDIRECT("$1:$"&LEN(A1))),1)),)),MAX(INDEX(CODE(MID(A1,ROW(INDIRECT("$1:$"&LEN(A1))),1)),))<=223)
 【入力しようとした文字列のすべての文字のコード番号が、161以上223以下であれば許可】

コード番号は、CODE関数で調べることができます。
「半角カナ」161~223
「全角英数」9008~9082
「全角カナ」9505~9590

※「数式はエラーと判断されます。続けますか?」
 というメッセージが出てもそのまま「はい」で続行。
--------------------------------------------------------------------
●B案:許可する文字を全て書き出す

例えば「全角英数のみ」の場合

 =SUMPRODUCT(--ISERROR(FIND(MID(A1,ROW(INDIRECT("$1:$"&LEN(A1))),1),"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")))=0
 【入力しようとした文字列のすべての文字が、指定した文字列の中にあれば許可】
--------------------------------------------------------------------
※いずれもExcel2003で動作確認済
※当然ですが、[日本語入力]タブの設定も併用して、
 IMEを自動的に切り替えないと非常に不便です。
※数式が長いので、直接打ち込むのではなく、
 別の場所に書き込んでから、コピー>Ctrl+Vで貼り付けた方が確実です。

以上ご参考まで。

入力規則の[日本語入力]タブの設定は、
あくまでIMEを自動的に切り替えるだけのものですから、
残念ながら、指定した種類の文字以外の入力を禁止することはできません。

また、「全角英数のみ」「全角カナのみ」「半角カナのみ」を
簡単に判定する方法も、おそらくないと思います。

以下、かなり無理矢理ですが、
データ>入力規則>設定タブ>ユーザー設定>数式で…
--------------------------------------------------------------------
●A案:コード番号で指定する

例えば「半角カナのみ」の...続きを読む

Q半角入力セルを全て全角入力セルに変換

Office2000のExcelです。

半角文字が入力された多くのセルをまとめて全角に変換したいのですが、できますでしょうか?

ex) 402 ⇒ 402

宜しくお願いいたします。

Aベストアンサー

=JIS(セル)
で全角になります。英字を大文字(a→A)が同時の場合は
=JIS(UPPER(A1))

数値のみのセルを全角で表示だけでいいなら、セルの書式設定で表示形式をユーザー定義にして
[DBNum3]0
※小数点以下桁やカンマ区切りのある場合は、上記の0部分を修正してください。

QエクセルVBA住所録で半角全角問わず検索する方法

エクセルVBAで住所録を作っています。
住所録で下記のようなコードを書いて、キーワード検索をさせるようにしているのですが、『*丁目』や番地に半角英数を使っています。
全角で数字を入力しても検索されるようなコードの書き方はあるのでしょうか?
宜しくお願いします。

Sub 住所検索()
ans = InputBox("住所を入力してください")
With ActiveSheet
If .AutoFilterMode Then 'オートフィルタモードがオンなら
.AutoFilterMode = False 'リセットする
End If
.Range("A1:IV1").AutoFilter 'オートフィルタモードをセット
.Range("A1:IV1").AutoFilter Field:=4, Criteria1:="=*" & ans & "*" '4つ目のフィルターに検索文字
End With
End Sub

Aベストアンサー

StrConv関数
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/function/vba_string2.html#strconv

ans = InputBox("住所を入力してください")
ans = StrConv(ans,vbNarrow) '←追加
With ActiveSheet

変数ansに含まれる”半角に出来る全角文字”を半角文字に変換しておくとか?

Qエクセルで全角カナを半角カナで入力したい

例えば、A列は漢字などを入力した場合ははそのままで、
全角カナだけを入力した場合に半角カナに
なるようにしたいのですが出来ますでしょうか?

Aベストアンサー

ご要望はマクロ(VBA)でないと不可能です。
例えば、対象シートタブ上で右クリック→コードの表示→以下のコード貼り付けてお試しください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
For i = 1 To Len(Target.Value)
If Mid(Target.Value, i, 1) Like "[ア-ン]" Then
wk = wk & StrConv(Mid(Target.Value, i, 1), vbNarrow)
Else
wk = wk & Mid(Target.Value, i, 1)
End If
Next
Application.EnableEvents = False
Target.Value = wk
Application.EnableEvents = True
End Sub

ご要望はマクロ(VBA)でないと不可能です。
例えば、対象シートタブ上で右クリック→コードの表示→以下のコード貼り付けてお試しください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
For i = 1 To Len(Target.Value)
If Mid(Target.Value, i, 1) Like "[ア-ン]" Then
wk = wk & StrConv(Mid(Target.Value, i, 1), vbNarrow)
Else
wk = wk & Mid(Target.Value, i, 1)
End If
Next
...続きを読む

Q半角文字で入力した住所を全角に

EXCEL 2003を使用しています。住所一覧表を作成してて、各サイト上の住所をコピーして貼り付けしてたら、番地などが半角数字だったり全角数字だったりして統一されていませんでした。都合上、数字を全角に変更したいのですが・・・。
住所を入力しているセルは、県名から番地までをひとつのセルに記入してます。

Aベストアンサー

以下の方法は如何でしょうか。

(例)住所列を仮にA列、空き列をC列とした場合
1.C列を選択、=JIS(A:A)を入力し、ctrl+enter同時押下
2.C列をコピー、A列選択して右クリック→形式を選択して貼り付け→値のみ→OK
3.C列を削除


人気Q&Aランキング

おすすめ情報