Excel精英培训网

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

[已解决]简化代码2

[复制链接]
发表于 2016-4-28 15:41 | 显示全部楼层 |阅读模式
本帖最后由 乐乐2006201506 于 2016-4-28 16:15 编辑

这个代码必须先设定A1:B1单元格的格式,然后才能应用到A6:B80。谢谢!
需要帮助两个方面:1.不用通过设定A1:B1单元格的格式,直接在A6:B80实现合并单元格的效果;
                                2.实现动态变化,不选择Range("A6:B80"),实现如(A1:B1,A2:B2,A3:B3,A4:B4,A5:B5,A6:B6,A7:B7……)效果的循环。
Sub Macro1()
    Range("A1:B1").Select
    With Selection
        .HorizontalAlignment = xlCenter
         Selection.Merge
       Range("A1:B1").Copy
          With Range("A6:B80")
              .PasteSpecial Paste:=xlPasteFormats
              .Borders.LineStyle = 1
           End With
    End With
End Sub

最佳答案
2016-4-28 15:49
Sub Macro2()
    With Range("A6:B80")
        .Merge True
        .HorizontalAlignment = xlCenter
        .Borders.LineStyle = 1
    End With
End Sub
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-4-28 15:49 | 显示全部楼层    本楼为最佳答案   
Sub Macro2()
    With Range("A6:B80")
        .Merge True
        .HorizontalAlignment = xlCenter
        .Borders.LineStyle = 1
    End With
End Sub
回复

使用道具 举报

 楼主| 发表于 2016-4-28 16:15 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2016-4-28 16:18 | 显示全部楼层
怎样实现动态变化,不选择A6:A80,只选择A6:B6。后边的都自动实现。引入一个或两个变量。谢谢!
回复

使用道具 举报

发表于 2016-4-28 16:21 | 显示全部楼层
Sub Macro2()
    With Range("A6:B80")
        .Merge True                     '将指定区域中每一行的单元格合并为一个单独的合并单元格
        .HorizontalAlignment = xlCenter '水平居中
        .Borders.LineStyle = 1          '实线边框
    End With
End Sub


哪里不会选中哪里,再按F1 ....
学会看帮助,自己就能查到注释了。
回复

使用道具 举报

发表于 2016-4-28 16:23 | 显示全部楼层
asdf23f.gif
回复

使用道具 举报

 楼主| 发表于 2016-4-28 16:54 | 显示全部楼层
谢谢,怎么实现动态选中单元格。
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 21:06 , Processed in 1.838032 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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