如何用VBA实现：Excel单元格输入文本后自动取消隐藏对应工作表区域？

操作步骤（适合编程新手） #

1. 打开VBA编辑器

   • 右键Excel窗口底部的第一张工作表标签（比如Sheet1），选择「查看代码」；或者直接按快捷键Alt + F11打开编辑器。

2. 插入工作表事件代码

   • 在编辑器左侧的「工程资源管理器」中选中你的第一张工作表（确保是你要输入文本的那个表）；
   • 在右侧代码窗口的顶部，第一个下拉框选Worksheet，第二个下拉框选Change，编辑器会自动生成事件框架。

3. 粘贴并修改代码
   将以下代码粘贴到自动生成的框架中，根据你的实际情况调整标注的部分：

   Private Sub Worksheet_Change(ByVal Target As Range)
       ' 仅处理C列（第3列）的单个单元格修改
       If Target.Column = 3 And Target.Cells.Count = 1 Then
           ' 定义第二张工作表，替换为你的表名（比如"数据页"）
           Dim targetSheet As Worksheet
           Set targetSheet = ThisWorkbook.Worksheets("Sheet2")
           
           ' 设置C列单元格对应的第二张表行区域
           ' 示例：C6对应第5-11行，即当前行号-1到当前行号+5
           Dim startRow As Integer, endRow As Integer
           startRow = Target.Row - 1
           endRow = Target.Row + 5
           
           ' 取消隐藏目标行区域
           targetSheet.Rows(startRow & ":" & endRow).Hidden = False
       End If
   End Sub
   

关键说明 #

• 表名修改：把代码里的"Sheet2"改成你实际的第二张工作表名称（比如你的表叫「明细」，就改成"明细"）。
• 对应规则调整：如果你的C列单元格和第二张表行的对应关系不是「当前行号-1到+5」，直接修改startRow和endRow的计算逻辑即可。比如C7对应第6-12行，逻辑不变；如果是C6对应第10-15行，就改成startRow = 10、endRow =15（如果是固定对应，也可以用条件判断，比如If Target.Row=6 Then startRow=10: endRow=15）。
• 宏启用与保存：
  • 保存文件时必须选择「Excel启用宏的工作簿(*.xlsm)」格式，否则宏会丢失；
  • 再次打开文件时，若弹出安全提示，选择「启用内容」才能让宏生效。

测试方法 #

回到Excel界面，在第一张工作表的C列任意单元格输入文本，切换到第二张表，对应行区域会自动取消隐藏。

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