通过

Application.Union 方法 (Excel)

  • 项目

返回两个或多个区域的合并区域。

语法

表达式。联合 (Arg1、 Arg2、 Arg3、 Arg4、 Arg5、 Arg6、 Arg7、 Arg8、 Arg9、 Arg10、 Arg11、 Arg12、 Arg13、 Arg14、 Arg15、 Arg16、 Arg17、 Arg18、 Arg19、 Arg20、 Arg21、 Arg22、 Arg23、 Arg24、 Arg25、 Arg26、 Arg27、 Arg28、 Arg29、 Arg30)

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Arg1 必需 Range 必须至少指定两个 Range 对象。
Arg2 必需 Range 必须至少指定两个 Range 对象。
Arg3 – Arg30 可选 Variant 一个区域。

返回值

Range

示例

此示例使用公式 =RAND() 填充两个命名区域 Range1 和 Range2 的合并区域。

Worksheets("Sheet1").Activate 
Set bigRange = Application.Union(Range("Range1"), Range("Range2")) 
bigRange.Formula = "=RAND()"

此示例将 Worksheet.Range 属性、Application.Union 方法和 Application.Intersect 方法进行比较。

Range("A1:A10").Select                            'Selects cells A1 to A10.
Range(Range("A1"), Range("A10")).Select           'Selects cells A1 to A10.
Range("A1, A10").Select                          'Selects cells A1 and A10.
Union(Range("A1"), Range("A10")).Select           'Selects cells A1 and A10.
Range("A1:A5 A5:A10").Select                     'Selects cell A5.
Intersect(Range("A1:A5"), Range("A5:A10")).Select 'Selects cell A5.

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。