如果Cell＆lt;＆gt; Cell.offset（-1,0）可见范围

Question

我有一个10,000个Acct＃的工作簿。我按公司和账单日期过滤数据。我搜索可见范围以获取参考编号。有一些重复的帐户。我曾考虑过试图隐藏重复项，但认为比较会更容易。

Dim rng As Range, ce As Range

Set rng = Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
For Each ce In rng
If ce = Acct And ce <> ce.Offset(-1, 0) Then
Else
End If

我希望ce等于帐号，而不等于它上面的可见单元格。 第一个ce在第6262行，如果我调试。打印ce.Offset（-1,0）它是行6261，如预期的那样，但该行不可见。 和建议？