[已解决]各位大神怎么在EXCEL中使用VB函数条件判断自动隐藏列

xiaohuangdou

各位大神，附件的表格怎么实现：如果D9:K9=C1，则显示，否则隐藏该列

例如：C1是处理器，D9:K9中所有处理器的列都显示，其他都不显示。

最佳答案

月排行榜 / 总排行榜

hasyh2008

2022-6-7 22:53

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim K%
    If Target.Address <> "$C$1" Then Exit Sub
    Columns("D:K").AutoFit
    For K = 4 To 11
        If Cells(9, K) <> Target.Value Then Columns(K).ColumnWidth = 0
    Next
End Sub

跳转到最佳答案楼层

hasyh2008

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim K%
    If Target.Address <> "$C$1" Then Exit Sub
    Columns("D:K").AutoFit
    For K = 4 To 11
        If Cells(9, K) <> Target.Value Then Columns(K).ColumnWidth = 0
    Next
End Sub