请教，使用Excel VBA，如何隐藏某些标题下为空的列，见下图，隐藏B、D、F三列？谢谢

发布网友发布时间：2022-06-01 02:50

共1个回答

热心网友时间：2023-11-16 00:56

Sub test()
i = 1
Do
If WorksheetFunction.CountA(Columns(i)) <= 1 Then Columns(i).EntireColumn.Hidden = True
i = i + 1
Loop Until Cells(1, i) = ""
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com