Cara menggunakan union di vba (dengan contoh)

Anda dapat menggunakan metode Union di VBA untuk menggabungkan beberapa rentang menjadi satu.

Berikut adalah cara umum untuk menggunakan metode ini dalam praktik:

 SubUseUnion ()

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

End Sub

Makro khusus ini menggabungkan rentang A1:A10 dan C1:C10 ke dalam satu rentang, lalu menetapkan rumus Excel =RANDBETWEEN(1, 100) ke setiap nilai dalam rentang gabungan ini, yang menghasilkan nilai acak antara 1 dan 100.

Contoh berikut menunjukkan bagaimana menggunakan metode Union di VBA dalam praktiknya.

Contoh: Cara Menggunakan Union di VBA untuk Menggabungkan Rentang

Kita dapat mendefinisikan makro berikut di VBA untuk menggunakan metode Union untuk menggabungkan rentang A1:A10 dan C1:C10 :

 SubUseUnion ()

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

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Setiap sel dalam rentang A1:A10 dan C1:C10 sekarang berisi rumus =RANDBETWEEN(1, 100) , yang mengembalikan bilangan bulat acak antara 1 dan 100.

Perhatikan juga bahwa kami dapat menyediakan lebih dari dua rentang pada metode Union .

Misalnya, kita dapat membuat makro berikut yang menggunakan metode Gabungan untuk menggabungkan tiga rentang berbeda, lalu menyisipkan rumus ke dalam setiap sel rentang:

 SubUseUnion ()

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

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Ketiga range yang telah kita gabungkan menjadi satu sekarang semuanya berisi rumus RANDBETWEEN .

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA Union di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Cara menggunakan persimpangan di VBA
Cara menghitung jumlah kolom yang digunakan di VBA
Cara menghitung jumlah lembar dalam buku kerja di VBA