Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2387|回复: 7

[已解决]宏录制问题

[复制链接]
发表于 2017-8-3 14:11 | 显示全部楼层 |阅读模式
本帖最后由 czl103 于 2017-8-3 15:40 编辑

现在的问题是,我录制的宏,明明是要创建W:Z列的组合,偏偏运行的时候讲A:Z全都组合起来了,麻烦大神们帮忙看看啥原因,谢谢。以下为相关代码

    Columns("W:Z").Select
    Selection.Columns.Group


在大灰狼版主的帮助下找到了解决办法,正确代码应改为:        
    ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
    Columns("AA:AE").Columns.Ungroup
    Columns("W:Z").Columns.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    Range("A1:AE1").Merge




最佳答案
2017-8-3 14:20
这两句并一句:
    Columns("W:Z").Select
    Selection.Columns.Group
合并成:
Columns("W:Z").Group

宏测试.rar

26.6 KB, 下载次数: 3

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-8-3 14:15 | 显示全部楼层
A1到Z1取消合并单元格就行了,实际上问题不是出在group,而是select。
回复

使用道具 举报

 楼主| 发表于 2017-8-3 14:18 | 显示全部楼层
大灰狼1976 发表于 2017-8-3 14:15
A1到Z1取消合并单元格就行了,实际上问题不是出在group,而是select。

嗯 具体咋办呢?不会
回复

使用道具 举报

发表于 2017-8-3 14:20 | 显示全部楼层    本楼为最佳答案   
这两句并一句:
    Columns("W:Z").Select
    Selection.Columns.Group
合并成:
Columns("W:Z").Group
回复

使用道具 举报

 楼主| 发表于 2017-8-3 15:07 | 显示全部楼层
大灰狼1976 发表于 2017-8-3 14:20
这两句并一句:
    Columns("W:Z").Select
    Selection.Columns.Group

嗯 合并了 现在的问题是,这么运行之后W:Z列仍显示,AA:AE仍处于隐藏状态。想实现的效果是,AA:AE列取消组合但是要显示出来,W:Z要组合进去,也就是不显示出来,不知道怎么实现?
    Columns("AA:AE").Ungroup
    Columns("W:Z").Group


宏测试V1.rar

39.31 KB, 下载次数: 1

回复

使用道具 举报

 楼主| 发表于 2017-8-3 15:37 | 显示全部楼层
大灰狼1976 发表于 2017-8-3 14:20
这两句并一句:
    Columns("W:Z").Select
    Selection.Columns.Group

自己研究了下,以下代码可以实现想要的效果。您帮忙看下代码是不是可以更精简?谢谢
Sub test()

    ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
    Columns("AA:AE").Columns.Ungroup
    Columns("W:Z").Columns.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    Range("A1:AE1").Merge

End Sub

回复

使用道具 举报

发表于 2017-8-3 15:57 | 显示全部楼层
录制宏压缩到这种程度可以了,没有什么余地了。
回复

使用道具 举报

 楼主| 发表于 2017-8-4 09:10 | 显示全部楼层
大灰狼1976 发表于 2017-8-3 15:57
录制宏压缩到这种程度可以了,没有什么余地了。

明了 谢谢[em23]
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 22:43 , Processed in 0.631024 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表