Com dados como:
AplicamosumfiltroequeremossaberseacélulavisívelprimeirodacolunaAtemomesmovalorqueacélulavisívelúltimacolunaA.
Estamacrocurtapercorreointervalo,testaavisibilidadeerealizaoteste:
SubRoman()DimrngAsRange,rAsRangeDimv1AsVariant,v2AsVariantDimFlipFlopAsBooleanSetrng=Range("A2:A26")
FlipFlop = True
For Each r In rng
If FlipFlop Then
If r.EntireRow.Hidden = False Then
v1 = r.Value
FlipFlop = False
End If
Else
If r.EntireRow.Hidden = False Then
v2 = r.Value
End If
End If
Next r
If v1 = v2 Then
MsgBox "they are equal"
Else
MsgBox "they are not equal"
End If
End Sub
Isso não depende do SpecialCells.