一键隐藏合计数据为0的列

没门

列很多，但是我只想看到有数据的列，怎么隐藏数据为0的列，求教各位大侠
202109_税款计算_工资薪金所得.rar (13.72 KB, 下载次数: 89)

2021-10-27 13:40 上传

点击文件名下载附件
202109_税款计算_工资薪金所得.rar

低吟轻语

.....................

我也想说

Sub test1()
  Dim Rng As Range
  Dim Rng1 As Range
  For Each Rng1 In Range("G19").CurrentRegion
  If Rng1.Value = 0 Then
    If Rng Is Nothing Then
      Set Rng = Rng1
    Else
      Set Rng = Union(Rng, Rng1)
    End If
  End If
  Next
  Rng.EntireColumn.Hidden = True
End Sub