基于其他工作表单元格值隐藏指定行的VBA代码问题求助

我完全懂这种反复折腾却没效果的挫败感，咱们一步步把这个问题理顺——你的代码里有几个语法和逻辑上的小问题，调整之后就能正常工作了：

原代码的核心问题 #

• 语法错误：Cell(C49) 是错误的VBA写法，引用单元格应该用 Range("C49") 或者 Cells(49, 3)（行号+列序号）；而且你漏写了Next a，For循环没有闭合，这会直接导致代码无法运行。
• 事件位置错了：你把Worksheet_Change事件放在了Memo工作表的代码窗口，但这个事件是用来响应当前工作表的单元格变化的。而你的触发源是Worksheet工作表的C49单元格，所以事件必须放在Worksheet工作表的代码窗口里。
• 效率冗余：没必要逐行循环设置隐藏状态，直接批量操作37到63行，代码会更简洁高效。

修正后的代码 #

把这段代码复制到Worksheet工作表的代码窗口（不是Memo的，也不是普通模块）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅在C49单元格变化时触发操作
    If Not Intersect(Target, Me.Range("C49")) Is Nothing Then
        ' 批量设置行的隐藏状态：非Residential则隐藏，否则显示
        Worksheets("Memo").Rows("37:63").Hidden = (Me.Range("C49").Value <> "Residential")
    End If
End Sub

代码细节解释 #

• Intersect(Target, Me.Range("C49")) 用来判断是不是C49单元格发生了变化，避免其他单元格修改时触发不必要的操作。
• Rows("37:63").Hidden = (Me.Range("C49").Value <> "Residential") 是一种简洁的逻辑写法：当C49的值不是Residential时，隐藏这些行；否则自动显示，省去了冗长的If-Else分支。
• Me 在这里代表当前的Worksheet工作表，比直接写Worksheets("Worksheet")更安全，万一以后修改工作表名称，代码也不会失效。

额外注意事项 #

1. 确保Worksheet和Memo的工作表名称和代码里的完全一致（VBA里工作表名称区分大小写）。
2. 如果你的Excel启用了宏，记得把文件保存为.xlsm格式，否则宏会丢失无法运行。

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