|
▼potemkin さん:
>同一シート内に検索文字ヒットセルが1つのみ、かつ
> If Not myCell Is Nothing Then
> Me.MultiPage1(1).ListBox1.AddItem (Worksheets(i).Name & "/" & myCell.Address)
> Set myFirstCell = myCell
> myFirstCellAdress = myFirstCell.Address
> Do
'↓1個目に検索した物を処理せずに次を検索してます
> Set myCell = Worksheets(i).Cells.FindNext(after:=myCell)
> myCellAdress = myCell.Address
'↓1個しかない場合は、次に見つかったものと同じセルだから結果は目に見えてますね。
> If myCellAdress = myFirstCellAdress Then
> Exit Do
> End If
>
> Me.MultiPage1(1).ListBox1.AddItem (Worksheets(i).Name & "/" & myCell.Address)
>
> DoEvents
> Loop
>そのセルが結合セルであるときに発生します。
と、いうことが解っているなら、結合セルを止めるか、
結合してないセルを検索範囲に指定するぐらいです。
A列のセルが結合セルに含まれていないのなら、検索範囲を
A列にするだけです。
検索範囲がまばらになるようならあきらめてください。
|
|