一个Excel涉及到VBA的问题!

发布网友发布时间：2022-05-27 20:35

共6个回答

热心网友时间：2023-12-15 11:27

正确的语句：

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

热心网友时间：2023-12-15 11:28

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

热心网友时间：2023-12-15 11:28

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

热心网友时间：2023-12-15 11:29

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

热心网友时间：2023-12-15 11:30

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

热心网友时间：2023-12-15 11:30

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

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