![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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で文字列を数値に変換したい
-
エクセルで最初のスペースまで...
-
エクセル 文字数 多い順 並...
-
2つのエクセルのデータを同じよ...
-
Excelで、A列にある文字がB列...
-
エクセルの項目軸を左寄せにしたい
-
Excelで半角の文字を含むセルを...
-
エクセル 時間帯の重複の有無
-
エクセル(勝手に太字になる)
-
A列がない・・・A列が非表示に...
-
エクセルで文字が混じった数字...
-
「B列が日曜の場合」C列に/...
-
ExcelのVBAで連番を振る。
-
エクセル 同じ値を探して隣の...
-
EXCELで cuontifやsubtot...
-
ハイパーリンク情報を別セルへ...
-
【Excel VBA】特定の列以外を削除
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
2つのエクセルのデータを同じよ...
-
エクセルで最初のスペースまで...
-
エクセルVBA、別ブックへ転記す...
-
エクセル 文字数 多い順 並...
-
エクセル(勝手に太字になる)
-
VBAで文字列を数値に変換したい
-
エクセルで文字が混じった数字...
-
エクセルの表から正の数、負の...
-
「B列が日曜の場合」C列に/...
-
Excelで半角の文字を含むセルを...
-
エクセルの並び変えで、空白セ...
-
Excel、市から登録している住所...
-
エクセル 同じ値を探して隣の...
-
EXCELで 一桁の数値を二桁に
-
エクセル初心者です 関数の入れ...
-
A列がない・・・A列が非表示に...
-
オートフィルターをかけ、#N/A...
-
エクセルで、列の空欄に隣の列...
おすすめ情報