六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

通过VBA中的Union合并多个Range选择区域

Admin | 2010-5-13 10:45:35 | ReadNums | 29754 | 标签 六合开奖结果现场直播 | 打印本页
     

  在Excel中,Union的功能是合并两个或两个以上的选择区域,合并成为一个更大的区域。

  所合并的多个选择区域,这些选择区域,可以是不连续的,也可以是连续的。

  一般情况下,要使用Union,可通过如下来使用。

  expression.Union(Arg1, Arg2, ...)

  expression参数为可选。该表达式返回一个Application对象;

  Arg1, Arg2, ...   Range 类型,必需。必须至少指定两个Range对象。

  在使用Union的时候,我们也没有必要使用expression.Union,直接调用Application.Union方法即可。

  一、最不灵活的实例  

  Dim MyArea1, MyArea2 As Range
  Set MyArea1 = Range("A1:B3")
  Set MyArea2 = Range("A7:B10")
  Application.Union(MyArea1, MyArea2).Select

  如上代码,功能是,首先定义两个选择区域,然后,分别设置选择区域为:A1:B3和A7:B10;最后,通过Application.Union把两个选择区域进行合并,并将合并后的区域选中。

  当然,Application.Union合并区域,功能是强大的,但是,至少要有两个选择区域;如果有多个,也是可行的,如下代码,通过Application.Union合并三个选择区域,并将其选中。

  Dim MyArea1, MyArea2, MyArea3 As Range
  Set MyArea1 = Range("A1:B3")
  Set MyArea2 = Range("A7:B10")
  Set MyArea3 = Range("A12:B14")
  Application.Union(MyArea1, MyArea2, MyArea3).Select

  以上代码大家都看了,有没有发现问题呢?

  当我们在设定选择区域的时候,必须在Range("")指明从哪个单元格到哪个单元格,比如Range("A12:B14")
,那是多么的麻烦。

  下面,给大家介绍一下更为灵活方便的方法。

  二、较为灵活方便的方法

  要选择多个区域并合并,使用单元格名称来确定区域,是多么的不方便。

  我们完全可以使用行列的序号来代替单元格名称。

  如下代码:

  Dim MyArea1, MyArea2, MyArea3 As Range
  Set MyArea1 = Range(Cells(1, 1), Cells(3, 3))
  Set MyArea2 = Range(Cells(6, 1), Cells(9, 3))
  Set MyArea3 = Range(Cells(12, 1), Cells(13, 3))
  Application.Union(MyArea1, MyArea2, MyArea3).Select

  就是这样,通过Range(Cells(1, 1), Cells(3, 3))来代替Range(“A1:C3”)。

  知道为什么要这么使用吗,愿意就是,当您试图通过VBA来确定单元格名称,如A1:C3时,难以构造这样的字符连接。倒不如直接使用行列所在的序号进行替代,因为Cells(行号、列号),里面的行列号,我们可以通过直接指定或者通过循环赋予一个值。

  三、更灵活的实例

  基于以上两个实例,下面,我们可以构造一个更为灵活的实例。先看如下代码吧:

  Application.Union(Range(Cells(1, 1), Cells(11, 3)), Range(Cells(16, 1), Cells(16, 3)), Range(Cells(21, 1), Cells(32, 3))).Select

  上述代码中,已经不再单独定义Range对象了,而是在Union方法中,直接调用Range(Cells(1, 1), Cells(11, 3))来合并被选择的单元格区域。


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日