[已解决][求助]跳选Excel列修改列宽语句问题！！！

beefking

Range("A:A,K:K,P:P").Select
Range("P2").Activate
Selection.ColumnWidth = 6
Range("B:I,L:N,Q:S").Select
Range("Q2").Activate
Selection.ColumnWidth = 11

我用“录制宏”命令录制的上面的语句，我希望是A、K、P列的列宽修改成6，B～I、L～N、Q～S列的列宽修改成11，我把录制的语句复制到别的模块里执行，出来的结果是列宽都是11，如果把上面三行放在下面，列宽都成了6，不知道有什么办法使A、K、P列宽成6，B～I、L～N、Q～S列宽成11，请大大们指教！

最佳答案

月排行榜 / 总排行榜

雨狐

2009-9-23 22:00

可写成:

Range("A:A,K:K,P:P").ColumnWidth = 6
Range("B:I,L:N,Q:S").ColumnWidth = 11
具体结应的列号你自己再看看

跳转到最佳答案楼层

雨狐

可写成:

Range("A:A,K:K,P:P").ColumnWidth = 6
Range("B:I,L:N,Q:S").ColumnWidth = 11
具体结应的列号你自己再看看

beefking

感谢楼上的兄弟！