回答編集履歴
2
sample
test
CHANGED
|
@@ -5,10 +5,8 @@
|
|
|
5
5
|
Function regreplace(pattern, replacement, str)
|
|
6
6
|
Dim reg As Object
|
|
7
7
|
Set reg = CreateObject("VBScript.RegExp")
|
|
8
|
-
With reg
|
|
9
|
-
|
|
8
|
+
reg.pattern = pattern
|
|
10
|
-
End With
|
|
11
|
-
regreplace = reg.Replace(str, replacement)
|
|
9
|
+
regreplace = reg.Replace(str, replacement)
|
|
12
10
|
End Function
|
|
13
11
|
```
|
|
14
12
|
|
1
test
CHANGED
|
@@ -1,3 +1,16 @@
|
|
|
1
1
|
ユーザー定義関数をつくって正規表現をつかって置換すればいいでしょう
|
|
2
2
|
自力が難しければアドオンなどを探してもいいでしょう
|
|
3
3
|
|
|
4
|
+
```VBA
|
|
5
|
+
Function regreplace(pattern, replacement, str)
|
|
6
|
+
Dim reg As Object
|
|
7
|
+
Set reg = CreateObject("VBScript.RegExp")
|
|
8
|
+
With reg
|
|
9
|
+
.pattern = pattern
|
|
10
|
+
End With
|
|
11
|
+
regreplace = reg.Replace(str, replacement)
|
|
12
|
+
End Function
|
|
13
|
+
```
|
|
14
|
+
|
|
15
|
+
- A2:[aaa/bbb/ccc]/eee/fff/gggHiii/jjj
|
|
16
|
+
- B2:=regreplace("^(?:.+?/){3}(.+?)H.+$","$1",A2)
|