录制宏隐藏含Hide文本单元格所在列时遇运行时错误1004

我录制了一个宏，想要选中所有包含文本“Hide”的单元格并隐藏其所在列，编写的VBA代码如下：

Sub Hide_Columns()
'
' Hide_Columns Macro
'

'
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.SpecialCells(xlCellTypeFormulas, 2).Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
End Sub

运行时弹出错误提示：

Run-time error '1004': 未找到单元格

问题原因 #

1. 原代码依赖手动选择的起始单元格，Range(Selection, Selection.End(xlToRight))的范围选择逻辑可能没覆盖到所有包含“Hide”的单元格；
2. SpecialCells(xlCellTypeFormulas, 2)仅针对带常量结果的公式单元格查找，完全不符合查找“包含文本Hide的单元格”的需求；
3. 当没有找到符合SpecialCells条件的单元格时，直接抛出1004错误，无容错处理。

修正后的代码 #

Sub Hide_Columns()
    Dim ws As Worksheet
    Dim searchRange As Range
    Dim foundCell As Range
    Dim firstFoundAddr As String
    
    ' 指定要操作的工作表，可改成你的表名比如Sheets("数据")
    Set ws = ActiveSheet
    ' 定义查找范围，比如第一行，根据实际需要调整（比如ws.UsedRange.Rows(1)）
    Set searchRange = ws.Rows(1).Cells
    
    ' 查找包含"Hide"的单元格，支持文本或公式结果匹配
    Set foundCell = searchRange.Find(What:="Hide", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        firstFoundAddr = foundCell.Address
        ' 循环遍历所有匹配的单元格
        Do
            foundCell.EntireColumn.Hidden = True
            Set foundCell = searchRange.FindNext(foundCell)
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstFoundAddr
    End If
    
    ' 回到第一列
    ActiveWindow.ScrollColumn = 1
End Sub

关键改进点 #

• 不再依赖手动选择单元格，明确指定操作范围，避免误操作；
• 使用Find/FindNext精准匹配所有包含“Hide”的单元格，支持直接输入的文本或公式计算结果；
• 增加空值判断，没有找到匹配项时不会报错；
• 去掉冗余的Select操作，VBA中直接操作对象效率更高、更稳定。

内容的提问来源于stack exchange，提问作者M_Naipaul