Toán tử tổ hợp giữa các mảng

[adam_tran]

Thí dụ tôi có đoạn Code sau:
Sub Test()
Dim orgnArray As Range, calArray As Range, kqArray As Range
On Error Resume Next
Set orgnArray = Range("A1:A100")
Set calArray = Range ("A51:A100")
'Bây giờ tôi muốn gán mảng kết quả mảng kqArray là:
- Giao của 2 mảng này, Kq là ô A51:A100
- Hợp của 2 mảng này, Kq là ô A1:A100
- Trừ của 2 mảng này, Kq là ô A1:A50

Vậy code lệnh của VBA như thế nào?
Thanks for help!