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