一个Excel涉及到VBA的问题！

2024-11-27 11:37:39

推荐回答（6个）

回答1：

正确的语句：

Sub 关键信息()
    ActiveSheet.Range("D:D,G:G,H:H,J:J,O:O,P:P,U:U,V:V,W:W,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE").EntireColumn.Hidden = True
End Sub

回答2：

Columns(5).EntireColumn.Hidden = True
就是隐藏第5列
你的代码可以直接
Sub 关键信息()
Range("D:D,G:G,H:H,J:J,O:O,P:P,U:U,V:V,W:W,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE").EntireColumn.Hidden = True
End Sub

回答3：

Columns("D:D").Hidden = True '隐藏D列
Columns("D:D").Hidden = False '取消隐藏D列
自己照着写吧

回答4：

Sub 关键信息()
sheet1.columns（“D”）.entirecolumn.hidden=true
....
end sub
可以避免使用select，可能是你其他宏select到别的列了

回答5：

代码本身没问题，估计你的数据表里有合并单元格，如果有的话就会出现你说的那个问题

回答6：

这个宏没有问题，就是隐藏指定的那些列，最好是看看你的原文件。
或者你的按钮不是指定在这个宏上，还有另外的用于调试的宏？

那把你的文件发过来看看，xiaoyuemt@21cn.com