Question

excel怎么用VB自动隐藏显示

条件3-200列 A列为空隐藏对应的列 （如A3-50不为空时.从52-200列自动隐藏. 当A51有东西的时候53-200隐藏）
要无限启动的

Answer 1

添加一个按钮吧，
选菜单：视图》工具栏》控件工具箱
点左上角的 三角尺＋直尺＋笔 的图标，进入设计模式
点“命令按钮”（就是刚才按钮的对下3个，一个按钮模样的键）
在工作表某个位置，如a1单元格上画一个长方形，得到按钮。
选“按钮”点右键，在右键菜单中选“查看代码”
在出现的visual basic 编辑器窗口，右边的代码
Private Sub CommandButton1_Click()

End Sub
在上面两行代码的中间粘贴下面的代码：

If Columns("B:D").EntireColumn.Hidden = False Then
Columns("B:D").EntireColumn.Hidden = True
Else
Columns("B:d").EntireColumn.Hidden = False
End If
Range("A2").Select

返回工作表，点“三角尺”按钮，退出设计模式。

点按钮。
OK。

Answer 2

有需求的话留Q发文件，给你解决这个问题