我来帮你搞定这个问题！你的核心需求是让每个按钮自动控制自身下方10行的显示/隐藏，不用为每个按钮单独编写代码，还得支持切换（点一下隐藏、再点一下显示）。原代码的问题主要是偏移方向搞反了，而且没有做状态切换逻辑，所以换按钮位置就失效。

优化后的通用代码 #

这个代码不管按钮放在工作表的哪个位置，都能精准识别并控制其下方10行的显示状态，还整合了切换功能：

Sub ToggleRowsVisibility()
    Dim btnShape As Shape
    Dim btnRow As Long
    Dim targetRange As Range
    Dim ws As Worksheet
    
    ' 获取触发当前宏的按钮形状
    Set btnShape = ActiveSheet.Shapes(Application.Caller)
    ' 获取按钮所属的工作表
    Set ws = btnShape.Parent
    ' 获取按钮左上角单元格所在的行号
    btnRow = btnShape.TopLeftCell.Row
    
    ' 定义目标范围：按钮所在行的下1行到下10行（共10行）
    Set targetRange = ws.Rows(btnRow + 1 & ":" & btnRow + 10)
    
    ' 切换隐藏状态：当前隐藏则显示，当前显示则隐藏
    targetRange.EntireRow.Hidden = Not targetRange.EntireRow.Hidden
End Sub

关键逻辑说明 #

• Application.Caller：自动识别触发宏的按钮，不管按钮在哪个位置、叫什么名字，都能精准定位，完全不用硬编码按钮名称。
• btnShape.TopLeftCell.Row：准确获取按钮所在的行号，哪怕按钮跨了多行，也会取左上角的行作为基准，逻辑更可靠。
• 目标范围定义：直接用btnRow + 1到btnRow + 10锁定按钮下方10行，逻辑清晰，不会出现偏移错误。
• 状态切换：Not targetRange.EntireRow.Hidden实现了一键切换，不用写两个分开的宏，单个按钮就能完成显示/隐藏操作。

使用方法 #

1. 在Excel中插入表单控件按钮（推荐用表单控件，操作更简单）。
2. 右键按钮，选择「指定宏」，选中这个ToggleRowsVisibility宏。
3. 把这个按钮复制到你需要的任意位置，每个复制出来的按钮都会自动控制自身下方10行的显示状态，完全不用修改代码！

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