在EXCEL中如何实现自动隐藏无数据的列

在Excel窗口中同时按Alt和F11进入宏界面，点菜单的插入，代码，粘贴如下代码：

Sub test()

For i = 1 To 10 &#泌驾台佐39;第10列，即J列，可以自己改的

If Application.WorksheetFunction.Sum(Columns(i)) = 0 Then Columns(i).Hidden = True

Next i

End Sub

回到Excel，点菜单的工具，宏，运行Test就可以了。