タイトル : Re^7: エラー処理追加(修正) 投稿日 : 2009/11/13(Fri) 17:07 投稿者 : YK
こんにちは。 > > 私もサンプルで > > 下記ならどのようになりますか? > Debug.Print Extex3("ABSCD1234EFG", "ABCD", "EFG") > Debug.Print Extex3("ABSCD1234EFGABCD123EFG", "ABCD", "EFG") そうでね。 考えてみたら V1 = Split("ABSCD1234EFGABCD123EFG", "ABCD")の時 V1(0)にEFGがあっても無視ですね。 > v1 = Split(strM, strA) > If UBound(v1) > 0 Then > For i = 0 To UBound(v1) ↓ でどうでしょう。 For i = 1 To UBound(v1) |