excel怎么做一个VBA快速将表格为空的那一列隐藏，留下有内容的列，如图

Private Sub CommandButton1_Click()
For i = 1 To ActiveSheet.UsedRange.Count
If Application.CountA(ActiveSheet.Rows(i)) = 0 Then
ActiveSheet.Rows(i).EntireRow.Hidden = True
End If
Next
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/ee7rjjyfrfryvvxrj22.html