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