回答編集履歴
2
余計な言葉を削除
test
CHANGED
|
@@ -1,7 +1,3 @@
|
|
|
1
|
-
VBAは文字列処理が不自由ですよね。
|
|
2
|
-
|
|
3
|
-
|
|
4
|
-
|
|
5
1
|
文字列`x`中の任意の場所に`A & y & B`があれば`Z`に置換したいのですよね？
|
|
6
2
|
|
|
7
3
|
であれば、
|
1
コード修正
test
CHANGED
|
@@ -10,13 +10,13 @@
|
|
|
10
10
|
|
|
11
11
|
pattern = A & y & B
|
|
12
12
|
|
|
13
|
-
length = Len(p)
|
|
13
|
+
length = Len(pattern)
|
|
14
14
|
|
|
15
15
|
index = InStr(x, pattern)
|
|
16
16
|
|
|
17
17
|
If (index > 0) Then
|
|
18
18
|
|
|
19
|
-
x = Left(x, index) & Z & Mid(x, index + l)
|
|
19
|
+
x = Left(x, index) & Z & Mid(x, index + length)
|
|
20
20
|
|
|
21
21
|
End If
|
|
22
22
|
|