根据组合框的类型，这里有三种方法。
使用ActiveX控件：

Private Sub ComboBox1_Change()
    CB_ActiveX_Change Me.ComboBox1
End Sub

Private Sub ComboBox2_Change()
    CB_ActiveX_Change Me.ComboBox2
End Sub

Private Sub ComboBox3_Change()
    CB_ActiveX_Change Me.ComboBox3
End Sub

Public Sub CB_ActiveX_Change(cb As ComboBox)

    With cb.Parent
        'Cells returns a single cell range, no need to wrap in RANGE.
        '(cb.Value = "Courier") will return TRUE/FALSE which can be passed straight to the Hidden property of the control.
        .Cells(cb.TopLeftCell.Row + 1, 1).EntireRow.Hidden = (cb.Value = "Courier")
    End With
    
End Sub

使用窗体控件。将此宏分配给每个控件：

Public Sub CB_FormControl_Change()
    
    With Sheet1.Shapes(Application.Caller)
        .TopLeftCell.EntireRow.Hidden = (.ControlFormat.List(.ControlFormat.Value) = "Courier")
    End With

End Sub

使用数据验证下拉列表：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If HasValidation(Target) Then
            Cells(Target.Row + 1, 1).EntireRow.Hidden = (Target.Value = "Courier")
        End If
    End If
End Sub

Public Function HasValidation(Cell As Range) As Boolean
    On Error Resume Next
        HasValidation = (Cell.Validation.Type = 3)
    On Error GoTo 0
End Function