Método Application.Union (Excel)

Retorna a união de dois ou mais intervalos.

Sintaxe

expressão. União (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, Arg26, Arg27, Arg27, Arg27, Arg27, Arg25, Arg26, Arg26, Arg27, Arg26, Arg27, Arg26, Arg27, Arg26, Arg27, Arg26, Arg27, Arg27, Arg27, Arg26, Arg27, Arg26, Arg27, Arg26, Arg27, Arg26, Arg27, Arg26, Arg27, Arg26, Arg27, Arg27, Arg27, Arg27, Arg27, Arg27, Arg26, Arg27, Arg27, Arg27, Arg27, Arg27, Arg27, Arg27Arg28, Arg29, Arg30)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Arg1	Obrigatório	Range	Pelo menos dois objetos Range devem ser especificados.
Arg2	Obrigatório	Range	Pelo menos dois objetos Intervalo devem ser especificados.
Arg3 – Arg30	Opcional	Variantes	Um intervalo.

Valor de retorno

Intervalo

Exemplo

Este exemplo preenche a união de dois intervalos nomeados, Range1 e Range2, com a fórmula =RAND().

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

Este exemplo compara a propriedade Worksheet.Range , o método Application.Union e o método 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.

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.