回答編集履歴
2
回答修正
test
CHANGED
|
@@ -6,6 +6,10 @@
|
|
|
6
6
|
|
|
7
7
|
replaceNum = ubound(split(Cells(i, 2),buf))
|
|
8
8
|
|
|
9
|
+
replaceNum = Iif(replaceNum<0,0,replaceNum) '-1が返る場合があるので0にする。
|
|
10
|
+
|
|
11
|
+
|
|
12
|
+
|
|
9
13
|
Cells(i, 2) = Replace(Cells(i, 2),buf,"")
|
|
10
14
|
|
|
11
15
|
MsgBox "bufを"&Str(replaceNum)&"個消しました。"
|
1
誤記修正
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
|
|
1
|
+
`split()`と`Ubound()`で求められるかな？
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|