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 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将推出:在整个 2024 年,我们将逐步取消以“GitHub 问题”作为内容的反馈机制,并将其替换为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈