Excel VBA宏报错类型不匹配：根据单元格值隐藏行求助

原代码的错误点： #

• StartRow赋值错误：StartRow = Range("C2")是把单元格对象赋值给变量，而我们需要的是行号，应该直接设为2（C2对应的行号）。
• LastRow赋值错误：Range("C2", Range("C2").End(xlDown))返回的是单元格区域，不是行号，正确写法是取区域最后一行的行号：LastRow = Range("C2").End(xlDown).Row。
• 未定义iCol变量：代码里用了iCol但没赋值，C列对应的列号是3，需要提前定义或直接使用3。
• 判断逻辑错误：需求是“单元格文本包含hide则隐藏行”，原代码用精确等于<> "hide"，应该用InStr函数检查是否包含目标文本。
• 依赖Activate不可靠：直接激活工作表容易出错，建议直接引用工作表对象。
• 变量未声明：未声明的变量会默认为变体类型，容易引发类型不匹配，建议添加Option Explicit强制变量声明。

修正后的代码： #

Option Explicit

Sub HideRowsWithHideText()
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim i As Long
    
    ' 指定工作表，避免依赖Activate
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取C列从C2开始的最后一行行号（若中间有空行，可改用下方注释的写法）
    LastRow = ws.Range("C2").End(xlDown).Row
    ' LastRow = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row ' 忽略中间空行的写法
    
    ' 遍历C2到最后一行的所有行
    For i = 2 To LastRow
        ' 检查单元格是否包含"hide"，不区分大小写可加vbTextCompare参数
        If InStr(ws.Cells(i, 3).Value, "hide") > 0 Then
            ws.Cells(i, 3).EntireRow.Hidden = True
        Else
            ws.Cells(i, 3).EntireRow.Hidden = False
        End If
    Next i
End Sub

额外说明： #

• 如果C列中间存在空行，End(xlDown)会停在空行上方，此时推荐使用ws.Cells(ws.Rows.Count, 3).End(xlUp).Row来获取C列所有已填充单元格的最后一行，避免遗漏数据。
• 若需要不区分大小写匹配（比如匹配"HIDE"、"Hide"），可把InStr语句改为InStr(1, ws.Cells(i, 3).Value, "hide", vbTextCompare)。

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