No.4ベストアンサー
- 回答日時:
最初にでてくる半角数値に着目していいなら、A1に元の住所があるとして、B1に
=LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&1234567890))-1)
とします。
●○区××町2-3-4 → ●○区××町 となります。
全角数値も対応するなら、
=LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A1)&1234567890))-1)
とすれば
●○区××町2-3-4 → ●○区××町になるでしょう。
No.3
- 回答日時:
余分な2列を確保して(B列C列と仮にします)、
(1)B1セルに=SUBSTITUTE(A1,"1","")と入れる。
A列データの最下行まで複写する。
B列の値複写をB列に行う。
(2)次にC1セルに=SUBSTITUTE(B1,"2","")と入れる。
A列データの最下行まで複写する。
C列の値複写をC列に行う。
(3)次はB1セルに=SUBSTITUTE(C1,"3","")と入れる。
A列データの最下行まで複写する。
B列の値複写をB列に行う。
(4)以下0、-まで11回交互のセルで行う。
------------
上記は面倒くさい。VBAでやれば一発。
Sub Macro1()
a = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "-", "")
b = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "-")
Worksheets("sheet1").Range("a1:a10").Select
For i = 0 To 10
Selection.Replace What:=a(i), Replacement:=b(i), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Next i
End Sub
(留意点)
(1)Range("a1:a10").のa1:a10は住所の入っている列の最下行まで指定するよう変えること。
(1)上記は1-->1,2-->2・・・のようにしているが、消してしまいたいなら、上記Replacement:=b(i)の部分をReplacement:="",とすれば良い。
(2)元へ戻すが効かないので、原シートをコピーしたシートなりを作ってテストすること。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) セルに入力した小文字アルファベット、数字を大文字表示させるには? 3 2022/07/13 10:01
- Excel(エクセル) EXCELでの文字・数字入力の基本について教えてください。 2 2023/05/29 23:17
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
エクセル(勝手に太字になる)
-
お店に入るために行列に並んで...
-
PowerPointで表の1つの列だけ...
-
【VBA】特定列に文字が入ってい...
-
エクセルで最初のスペースまで...
-
Excelで、A列にある文字がB列...
-
「B列が日曜の場合」C列に/...
-
VBAで文字列を数値に変換したい
-
空白セル(関数入ってます)を...
-
Calcの並び替え方法を教えてく...
-
【エクセルの行と列が隠れている】
-
【Excel VBA】特定の列以外を削除
-
2つのエクセルのデータを同じよ...
-
エクセルマクロ:複数列 重複...
-
CSVファイルの指定列だけを...
-
エクセル SMALL の機能...
-
文字を入力したら数値が自動入...
-
エクセルの表から正の数、負の...
-
Excel、市から登録している住所...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセル 文字数 多い順 並...
-
VBAで文字列を数値に変換したい
-
エクセル(勝手に太字になる)
-
エクセルで文字が混じった数字...
-
「B列が日曜の場合」C列に/...
-
エクセルの表から正の数、負の...
-
Excelで半角の文字を含むセルを...
-
エクセル 同じ値を探して隣の...
-
Excel、市から登録している住所...
-
エクセルの項目軸を左寄せにしたい
-
EXCELで 一桁の数値を二桁に
-
VBA 連続行データを5行ずつ隣の...
-
エクセル 時間帯の重複の有無
-
オートフィルターをかけ、#N/A...
-
エクセルで、列の空欄に隣の列...
-
A列がない・・・A列が非表示に...
おすすめ情報