我来帮你搞定这个需求！你现在用两个按钮分别控制两行的显示隐藏，要改成单个按钮实现互斥切换其实非常简单，核心就是让两行的隐藏状态始终保持相反就行。

修改后的完整代码 #

Private Sub ToggleRows_Click()
    ' 定义需要控制的两行行号，方便后续修改
    Const targetRow1 As Integer = 17
    Const targetRow2 As Integer = 18
    
    ' 用With语句简化代码，避免重复引用工作表
    With Application.ActiveSheet
        ' 根据Toggle按钮的状态，设置两行的互斥隐藏/显示
        If ToggleRows.Value Then
            ' 按钮按下时：显示第17行，隐藏第18行
            .Rows(targetRow1).Hidden = False
            .Rows(targetRow2).Hidden = True
        Else
            ' 按钮松开时：隐藏第17行，显示第18行
            .Rows(targetRow1).Hidden = True
            .Rows(targetRow2).Hidden = False
        End If
    End With
End Sub

关键逻辑说明 #

• 先给你的Toggle按钮改个直观的名称（比如ToggleRows），确保代码里的按钮名称和实际控件名称一致，不然会触发运行时错误
• 用Const定义行号，后续要调整目标行时，直接修改这两个常量的值就好，不用到处找代码里的行号
• 核心逻辑就是让两行的隐藏状态完全相反：按钮按下时一行显一行藏，松开时状态反转，完美实现你要的互斥切换效果
• With语句的使用可以简化代码结构，避免重复写Application.ActiveSheet，让代码更整洁

可选优化：动态修改按钮文字 #

如果你希望按钮上的提示文字也跟着状态变化（比如按下时显示“显示第18行”，松开时显示“显示第17行”），可以在代码里加一行修改按钮Caption的逻辑：

' 可选：动态修改按钮文字
ToggleRows.Caption = IIf(ToggleRows.Value, "显示第18行", "显示第17行")

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