|
potemkin さん、こんばんわ。
Sub test()
Dim ws As Worksheet
Set ws = Workbooks.Add.Worksheets(1)
With ws
'テスト検索用データ
.Range("E10:F11").Merge
.Range("E10").Value = "○"
'検索実施
With .Cells
Set c = .Find("○")
If Not c Is Nothing Then
firstAddress = c.MergeArea.Address
Do
c.MergeArea.Interior.ColorIndex = 3
Set c = .FindNext(c)
If c Is Nothing Then Exit Do
If c.MergeArea.Address = firstAddress Then Exit Do
Loop
End If
End With
End With
ws.Parent.Saved = True
Set ws = Nothing
End Sub
アドレスの比較をMergeAreaで行うのと、Nothingの判定とアドレスの条件を分けて分岐したら、XL2000でもエラーにならずに結合セルのみが検索ヒットしました。
|
|