返回两个或多个区域的合并区域。
语法
表达式。联合 (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 支持和反馈，获取有关如何接收支持和提供反馈的指南。