嘿，我懂你现在的困扰——原来的代码只能盯着固定的8-15行操作，没法让每一行的(+)都对应自己的钻取数据。其实只要改改代码，让它根据你点击的行动态找对应的子行，同时同步切换符号就行，下面是具体的实现方法：

改进后的VBA代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 只处理O列的单个单元格点击事件
    If Not Intersect(Target, Me.Range("O:O")) Is Nothing And Target.Cells.CountLarge = 1 Then
        Dim parentRow As Long
        Dim childRows As Range
        parentRow = Target.Row
        
        ' 定义当前父行对应的子行范围：这里默认父行下面有8个子行（可根据你的实际需求修改行数）
        ' 18对应R列（Excel列A是1，R是第18列），如果表格列数不同，替换这个数字即可
        Set childRows = Me.Range(Me.Cells(parentRow + 1, 1), Me.Cells(parentRow + 8, 18))
        
        ' 切换子行的隐藏/显示状态
        childRows.EntireRow.Hidden = Not childRows.EntireRow.Hidden
        
        ' 同步切换O列的符号
        If childRows.EntireRow.Hidden Then
            Target.Value = "(+)"
        Else
            Target.Value = "(-)"
        End If
    End If
End Sub

代码关键细节说明 #

• 动态匹配子行：通过Target.Row获取你点击的父行位置，自动计算对应的子行范围（这里默认每个父行下面有8个子行，和你原来的8-15行数量一致；如果你的钻取行数不同，把parentRow + 8改成对应的数字就行，比如要7行就改成parentRow +7）。
• 符号同步更新：不再只处理行的隐藏，同时把点击单元格的符号在(+)和(-)之间切换，操作反馈更直观。
• 列范围灵活调整：代码里的18对应R列，要是你的表格列数不一样，直接替换这个数字就能适配。

效果截图内容说明 #

1. 初始状态截图：

   • 表格只显示所有父级行，每行的O列单元格都显示(+)。
   • 父行下方的子行全部处于隐藏状态，看不到任何钻取数据。

2. 展开状态截图：

   • 点击某一行O列的(+)后，该行对应的8个子行立刻展开显示，钻取数据清晰可见。
   • 被点击行的O列符号切换为(-)，其他未操作的行仍保持(+)。

3. 收起状态截图：

   • 再次点击该行O列的(-)，对应的子行重新隐藏，表格回到仅显示父行的状态。
   • 被点击行的O列符号恢复为(+)。

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