質問編集履歴
2
具体例の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,11 +1,19 @@
|
|
|
1
1
|
「4丁目27番3」などのように番の後ろに数字が続く場合はハイフンに、「4丁目27番」などのように番の後ろに数字が続かない場合は何もなしに変換したいです。
|
|
2
2
|
|
|
3
|
-
以下のマクロを実行すると、「4丁目27-」のように3が消えてしまいます。
|
|
3
|
+
しかし、以下のマクロを実行すると、「4丁目27-」のように3が消えてしまいます。
|
|
4
4
|
|
|
5
5
|
```
|
|
6
6
|
Cells.Replace What:="番?", Replacement:="－", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
|
|
7
7
|
|
|
8
8
|
```
|
|
9
9
|
|
|
10
|
+
パターンとしては以下のものがあります。
|
|
11
|
+
千代田区霞が関１－２番１丸ビル → 千代田区霞が関１－２-１号丸ビル
|
|
12
|
+
千代田区霞が関７７-1番丸ビル → 千代田区二番町７７-1丸ビル
|
|
13
|
+
|
|
14
|
+
また、千代田区霞が関二番町のように町名などに含まれる「番」は「-」に変換しないようにしたいです。（こちらの条件は最悪満たせなくても大丈夫です）
|
|
15
|
+
|
|
10
16
|
上記のサンプルを修正して、目的を達成したい場合どうすればよろしいでしょうか。
|
|
11
|
-
教えていただけると幸いです。
|
|
17
|
+
教えていただけると幸いです。
|
|
18
|
+
|
|
19
|
+
何卒ご協力よろしくお願いします。
|
1
コードをマークダウン記法に変換
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,7 +2,10 @@
|
|
|
2
2
|
|
|
3
3
|
以下のマクロを実行すると、「4丁目27-」のように3が消えてしまいます。
|
|
4
4
|
|
|
5
|
+
```
|
|
5
6
|
Cells.Replace What:="番?", Replacement:="－", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
|
|
6
7
|
|
|
8
|
+
```
|
|
9
|
+
|
|
7
10
|
上記のサンプルを修正して、目的を達成したい場合どうすればよろしいでしょうか。
|
|
8
11
|
教えていただけると幸いです。
|