隐藏另一个工作表上的多个列：键入不匹配

得到了巨大的坚持什么似乎是一个简单的任务…获取types不匹配错误，当我尝试隐藏多个列使用此代码..

有更好的build议吗？

问候，

Sub Hider() Sheets("Data Source").Columns("O:AK").Hidden = False Sheets("Data Source").Columns("W, V").Hidden = True end sub 

Answer 1

试一试：

 Sub Hider() Sheets("Data Source").Columns("O:AK").Hidden = False Sheets("Data Source").Range("W:W, V:V").EntireColumn.Hidden = True end sub 

Answer 2

使用

Sheets("Data Source").Columns("V:W").Hidden = True

代替

Sheets("Data Source").Columns("W, V").Hidden = True