macros只在可见单元上运行

我想知道如何让macros只在可见（非隐藏）单元上运行？ 我应该添加到这个代码：？

Dim cell As Range For Each cell In ActiveSheet.Cells.SpecialCells(xlCellTypeVisible) With Application.FindFormat.Interior .PatternColorIndex = xlAutomatic .Color = 16711935 .TintAndShade = 0 .PatternTintAndShade = 0 End With Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=True).Activate Next cell Exit Sub 

Answer 1

这将激活所有可见的具有特定格式的单元格。

 Sub Example() Dim SearchRange As Range Dim c As Range, FoundRange As Range Dim firstAddress As String On Error Resume Next Set SearchRange = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible) On Error GoTo 0 If Not SearchRange Is Nothing Then With Application.FindFormat.Interior .PatternColorIndex = xlAutomatic .Color = 16711935 .TintAndShade = 0 .PatternTintAndShade = 0 End With Set c = SearchRange.Find(What:="", After:=SearchRange.Cells(1, 1), LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=True) If Not c Is Nothing Then firstAddress = c.Address Set FoundRange = c Do Set c = SearchRange.Find(What:="", After:=c, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=True) If Not c Is Nothing Then 'Do Something Set FoundRange = Union(FoundRange, c) End If Loop While Not c Is Nothing And c.Address <> firstAddress FoundRange.Activate End If End If End Sub 

Answer 2

如果它没有检查公式，你可以改变

 ActiveSheet.Cells.SpecialCells(xlCellTypeVisible) 

至

 ActiveSheet.Cells.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants) 

或者如果它正在检查公式，改变

 ActiveSheet.Cells.SpecialCells(xlCellTypeVisible) 

至

 ActiveSheet.Cells.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeFormulas) 

这将使它不会在未隐藏的空白单元上运行。