关于EXCEL的VBA问题！如何把公式计算结果为0的列自动隐藏

Question

关于EXCEL的VBA问题！如何把公式计算结果为0的列自动隐藏我做了一张很大的表格，我想做一个这样的宏，就是我的鼠标“任意全选一行”，再执行宏，就可以把这一行里面，公式计算结果为0的单元格所在的列，自动隐藏

Answer 1

 Sub 自动隐藏()
    '自动隐藏数值为0的单元格
    '首先选中一行，再执行，如果选中的是多行，或者选中的行没有数据不会运行
    
    Dim nR As Long, nC As Long
    '判断输入是否是一行
    If ActiveSheet.Index <> 1 Then Exit Sub
    With Worksheets(1)
        nR = Selection.Row
        If Selection.Rows.Count > 1 Or nR + Selection.Rows.Count - 1 > .UsedRange.Rows.Count Then Exit Sub
    
        nC = .UsedRange.Columns.Count   '选中行最后一行数据所在的列号
    
        For i = 1 To nC
            .Columns(i).Hidden = IIf(.Cells(nR, i).Value = 0, True, False)
        Next i
    End With
End Sub

可以弄一个按钮放到表格上

追问

太厉害了！