エクセル2013を使用しています。
とあるデータの住所列の「丁目」「番」「号」「番地」を「-(半角)」か削除したいのです。
例:住所列を「A列」とします。
1、○○市○○1丁目2番3号
2、○○市○○2番3号
3、○○市○○2番地3
4、○○市○○2番地
Dim i As Long
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LastRow
Cells(i, 1) = Replace(Cells(i, 1), "丁目", "-")
Cells(i, 1) = Replace(Cells(i, 1), "番", "-")
Cells(i, 1) = Replace(Cells(i, 1), "地", "")
Cells(i, 1) = Replace(Cells(i, 1), "号", "")
Next i
End Sub
1の「丁目」は Replace を使って「-(半角)」にし、「号」は削除してOKになります。
残りの2と3だけならば、「番」も「-(半角)」に、「地」は削除すれば済むのですが、
そうすると、4が「○○市○○2-」となってしまいます。
最後の「-」を削除する記述を考え、探してもみたのですが分かりませんでした。
変換の方法でも、最後の「-」を削除する方法でも良いのでお教えいただけないでしょうか?
よろしくお願いいたします。m(__)m
No.4
- 回答日時:
こんばんは!
一例です。
Sub Sample1()
Dim i As Long, k As Long, myAry As Variant
'//まず一気に置換//
myAry = Array("丁目", "番", "地", "号")
With Range("A:A")
For k = 0 To UBound(myAry)
If k < 2 Then
.Replace what:=myAry(k), replacement:="-"
Else
.Replace what:=myAry(k), replacement:=""
End If
Next k
End With
'//最後一文字が「-」の場合の処理//
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
With Cells(i, "A")
If Right(.Value, 1) = "-" Then
.Value = Replace(.Value, Right(.Value, 1), "")
End If
End With
Next i
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Excelで住所を2つ(町名迄と番地以降)に分けるには?
Excel(エクセル)
-
エクセルで「丁番地」を変換する方法を教えて下さい
Excel(エクセル)
-
エクセルの関数で1つのセルに入っている住所を丁目までと番地以降に分けたい
Excel(エクセル)
-
-
4
エクセル:住所の番地順に並び替えたい
Excel(エクセル)
-
5
Excel、市から登録している住所録に県を加える
Excel(エクセル)
-
6
ExcelやAccessで住所と番地を分けたい
その他(悩み相談・人生相談)
-
7
エクセルで住所の番地順に並べ替えるには?
Excel(エクセル)
-
8
Excelで全角ハイフンを半角ハイフンに変換したい
Word(ワード)
-
9
エクセル関数で住所から丁目番地、建物名を抽出したい
Excel(エクセル)
-
10
エクセルにおいて、住所データからマンション名のみを取り出したいです。
Excel(エクセル)
-
11
住所の文字列から郵便番号を削除したい。
Access(アクセス)
-
12
【Excel】 住所録の建物名を分ける方法
Excel(エクセル)
-
13
【エクセル、並び替えについて】
Excel(エクセル)
-
14
エクセルで住所と建物名を分けるには?
Excel(エクセル)
-
15
エクセル2000で、漢数字から算用数字へ変換する関数
Excel(エクセル)
-
16
EXCELファイルに誰がアクセスしたかを見たい
Access(アクセス)
-
17
配列の値を置換するにはどうすればいいでしょう?
Excel(エクセル)
-
18
参照元のブック名の変更を自動的に式に反映させたい
Access(アクセス)
-
19
住所編集のマクロを組んでいて、ハイフンをいれたい。
Visual Basic(VBA)
-
20
エクセル2007 番地の並び替えがうまくいきません
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA:Openステートメントで開い...
-
教えて!gooにはどのカテゴリが...
-
職場の人と仕事中に喧嘩して LI...
-
日テレニュースHP、記事削除は...
-
同じ質問
-
指定した文字があった場合、そ...
-
エクセルVBAで行削除時にエラー...
-
バッチファイルを使用したsql@p...
-
喧嘩をしてLINE削除され、 また...
-
アクセスにおいて間違って削除...
-
エクセルで下の空白行を削除したい
-
インスタグラムのギャラリーの...
-
エクセルで住所の混在する「丁...
-
Facebookメッセンジャーの不具合
-
(Access)複数条件の重複デー...
-
もう関わりたくない人がいたらL...
-
Facebookに自分が四つもアップ...
-
Excel 数式を入れているため、...
-
メーリングリストから特定の人...
-
動的に作成したコントロールの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
もはや喧嘩売ってるのか私(笑...
-
回答がついてる普通の質問まで...
-
指定した文字があった場合、そ...
-
VBA:Openステートメントで開い...
-
AI削除には数多のキーワード設...
-
インスタグラムのギャラリーの...
-
バッチファイルを使用したsql@p...
-
Yahooフリマってどれくらい時間...
-
Facebookメッセンジャーの不具合
-
削除の対象について
-
エクセルで住所の混在する「丁...
-
ビジネスパートナーから送られ...
-
女友達にLINEしたら、既読スル...
-
もう関わりたくない人がいたらL...
-
喧嘩をしてLINE削除され、 また...
-
猫にグラグラの熱湯かける動画...
-
すべてやりきった、大満足を意...
-
インスタアカウント、前の携帯...
-
Facebookに自分が四つもアップ...
-
Facebookで間違ってスートリー...
おすすめ情報