| |
▼potemkin さん：
>▼Jaka さん：
>返信いただきありがとうございます。
>
>>'↓１個しかない場合は、次に見つかったものと同じセルだから結果は目に見えてますね。
>
>これはそういう仕様なので、むしろ問題ないです。
>わからないのは
>
>Set myCell = Worksheets(i).Cells.FindNext(after:=myCell)
>
>この構文で普通のセルだと「mycell」に値が返ってくるのに
>結合セルだと返ってこないということです。
この部分は、手動でやってもエラーになりますよ。
新規Bookで試してみてください。
つまり、Excel2000の仕様ということです。
どうしようもないです。
>あきらめるしかないのでしょうか。
無理やり、やるなら・・・
Do ・・・
On Error Resume Next
Set myCell = .FindNext(After:=myCell)
On Error GoTo 0
If myCell Is Nothing Then Exit Do
Loop
といった感じでしょうか？
試してないので、間違ってたらスイマセン。
|
|
ハチ
- 07/10/11(木) 17:53 -
