Sub SetRangeUnion() Dim rng1 As Range Dim rng2 As Range Dim rngUnion As Range ' 设置范围1 Set rng1 = Range("A1:A5") ' 设置范围2 Set rng2 = Range("C1:C5") ' 设置范围并集 Set rngUnion = Union(rng1, rng2) ' 在并集范围内进行操作 rngUnion.Select ' 其他操作... End Sub 在...
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时,难以构造这样的字符连接。倒不如...
使用 Union (range1, range2, ...) 可返回多区域范围,即返回由两个或多个连续单元格区域构成的范围。 Union(Range("A1:B6"),Range("D5:H9")) 表示由A1:B6和D5:H9构成的范围 Range对象方法 Activate 方法:激活单个单元格,该单元格必须处于当前选定区域内。 若要选择单元格区域, 请使用select方法。 AddC...
Union方法是VBA中的一个方法,用于合并两个或多个Range对象。它通过创建一个新的Range对象,将所有指定的Range对象包含在内,使得我们可以对这些Range对象进行统一操作。 功能 Union方法的主要功能是合并多个Range对象,使得我们可以对这些Range对象进行统一操作,例如设置单元格的格式、添加边框、设置字体等。 语法 Union方法...
Set myRange = Worksheets("Sheet1").Range("A1:D5") '对Range对象进行操作 myRange.Formula = "=RAND()" myRange.Font.Bold = True End Sub 示例说明:可以设置Range对象变量来引用单元格区域,然后对该变量所代表的单元格区域进行操作。 - - - - - - - - - - - - - - - - - - - - - -...
#006 Union(Range("A1:B2"), Range("A4:C5"), Range("E2:F5")).Select #007 End Sub Ø 运行结果如所示：图 Union方法合并不连续单元格区域 Ø 代码说明：利用Union方法合并Range("A1:B2"), Range("A4:C5"), Range("E2:F5")三个单元格区域。
Arg2 必需 Range 必须指定两个Range对象 Arg3~Arg30 可选 Variant 一个区域 示例一:此示例将为单元格区域设置rand()公式。 Sub VBA职场联盟_Union的运用() Worksheets("Sheet1").Activate Set MyRange = Application.Union(Range("A1:A3"), Range("C2:C7"), Range("B5:B6")) MyRange.Formula = "=RA...
两个常用的Range处理函数,注意区别Range对象本身的方法和属性。 ' 多个区域交集Intersect(Rng1,Rng2,...)' 多个区域并集,相当于 Shift + 左键点选的效果Union(Rng1,Rng2,...) Intersect 之前的文章中已经有过接触, Intersect(Selection, ActiveSheet.Usedrange) ...
【转载】EXCELVBA通过VBA中的Union合并多个Range选择区 域 在Excel中，Union的功能是合并两个或两个以上的选择区域，合并成为⼀个更⼤的区域。所合并的多个选择区域，这些选择区域，可以是不连续的，也可以是连续的。⼀般情况下，要使⽤Union，可通过如下来使⽤。expression.Union(Arg1, Arg2, ...)express...
要使用Union函数，首先需要声明一个范围变量，并使用Set关键字分配给它一个初始范围。然后，可以使用Union函数将多个范围合并到该变量中。下面是一个简单的示例，演示了Union函数的基本用法：```vba Sub UnionExample()Dim rng1 As Range Dim rng2 As Range Dim combinedRange As Range '指定第一个范围 Set rng1...