Union gebruiken in vba (met voorbeeld)

U kunt de Union- methode in VBA gebruiken om meerdere bereiken tot één te combineren.

Hier is een gebruikelijke manier om deze methode in de praktijk te gebruiken:

 SubUseUnion ()

Set UnionRange = Application.Union(Range("A1:A10"), Range("C1:C10"))
UnionRange.Formula = "=RANDBETWEEN(1, 100)"

End Sub

Deze specifieke macro combineert het bereik A1:A10 en C1:C10 in één bereik en wijst vervolgens de Excel-formule =RANDBETWEEN(1, 100) toe aan elke waarde in dit gecombineerde bereik, wat een willekeurige waarde tussen 1 en 100 oplevert.

Het volgende voorbeeld laat zien hoe u de Union- methode in VBA in de praktijk kunt gebruiken.

Voorbeeld: Union in VBA gebruiken om bereiken te combineren

We kunnen de volgende macro in VBA definiëren om de Union-methode te gebruiken om de bereiken A1:A10 en C1:C10 te combineren:

 SubUseUnion ()

Set UnionRange = Application.Union(Range("A1:A10"), Range("C1:C10"))
UnionRange.Formula = "=RANDBETWEEN(1, 100)"

End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Elke cel in de bereiken A1:A10 en C1:C10 bevat nu de formule =RANDBETWEEN(1, 100) , die een willekeurig geheel getal tussen 1 en 100 retourneert.

Houd er ook rekening mee dat we meer dan twee bereiken kunnen leveren aan de Union- methode.

We kunnen bijvoorbeeld de volgende macro maken die de Union- methode gebruikt om drie verschillende bereiken te combineren en vervolgens een formule in de cel van elk bereik invoegen:

 SubUseUnion ()

Set UnionRange = Application.Union(Range("A1:A10"), Range("C1:C10"), Range("D1:D5" ))
UnionRange.Formula = "=RANDBETWEEN(1, 100)"

End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

De drie assortimenten die we tot één hebben samengevoegd, bevatten nu allemaal de RANDBETWEEN- formule.

Opmerking : u kunt hier de volledige documentatie voor de VBA Union- methode vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Hoe kruispunt in VBA te gebruiken
Hoe het aantal kolommen te tellen dat in VBA wordt gebruikt
Hoe het aantal vellen in een werkmap in VBA te tellen