Application.Union (Excel)

Retorna a união de dois ou mais intervalos.

Union (Arg1, Arg2, ..., Arg30)


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

Arguments

Arg1, Arg2, ..., Arg30

Arg1 (Range) - Pelo menos dois objetos Range devem ser especificados.

Arg2 (Range) - Pelo menos dois objetos Intervalo devem ser especificados.