Nối nhiều vùng dữ liệu để hiển thị vào một combobox

[Blad01]

Em mong các thầy, cô, anh chị trong diễn đàn giúp cho việc như tiêu đề:
Trong file em có dữ liệu ở cột B, C, D, E, F là tên của các tổ chức đảng. Bây giờ em muốn tên của các tổ chức đảng này hiển thị vào một combobox thì phải viết code như thế nào ?
Em cũng đã thử viết nhưng không được. Mong thầy cô, anh chị diễn đàn giúp đỡ. Em chân thành cảm ơn.
Code em viết nhưng chưa nối các vùng lại với nhau được:

Private Sub UserForm_Initialize()
Dim a As Object
Dim lr As Variant
Dim lr1 As Variant
Dim lr2 As Variant
Dim lr3 As Variant
Dim lr4 As Variant

lr = Sheet2.Range("B" & Rows.Count).End(xlUp).Row
lr1 = Sheet2.Range("C" & Rows.Count).End(xlUp).Row
lr2 = Sheet2.Range("D" & Rows.Count).End(xlUp).Row
lr3 = Sheet2.Range("E" & Rows.Count).End(xlUp).Row
lr4 = Sheet2.Range("F" & Rows.Count).End(xlUp).Row

For Each a In Sheet2.Range("B3:B" & lr)
    cbTenCQ.AddItem a
Next
End Sub

 

[ndu96081631]

Em mong các thầy, cô, anh chị trong diễn đàn giúp cho việc như tiêu đề:
Trong file em có dữ liệu ở cột B, C, D, E, F là tên của các tổ chức đảng. Bây giờ em muốn tên của các tổ chức đảng này hiển thị vào một combobox thì phải viết code như thế nào ?
Em cũng đã thử viết nhưng không được. Mong thầy cô, anh chị diễn đàn giúp đỡ. Em chân thành cảm ơn.
Code em viết nhưng chưa nối các vùng lại với nhau được:

Private Sub UserForm_Initialize()
Dim a As Object
Dim lr As Variant
Dim lr1 As Variant
Dim lr2 As Variant
Dim lr3 As Variant
Dim lr4 As Variant

lr = Sheet2.Range("B" & Rows.Count).End(xlUp).Row
lr1 = Sheet2.Range("C" & Rows.Count).End(xlUp).Row
lr2 = Sheet2.Range("D" & Rows.Count).End(xlUp).Row
lr3 = Sheet2.Range("E" & Rows.Count).End(xlUp).Row
lr4 = Sheet2.Range("F" & Rows.Count).End(xlUp).Row

For Each a In Sheet2.Range("B3:B" & lr)
    cbTenCQ.AddItem a
Next
End Sub

Viết thêm 4 vòng lập nữa

 

[Phuocam]

Code em viết nhưng chưa nối các vùng lại với nhau được:

Thử code này:

Private Sub UserForm_Initialize()
Dim r As Long, c As Long
Dim lr As Long

With Sheet2
For c = 2 To 6
    lr = .Cells(.Rows.Count, c).End(xlUp).Row
    For r = 3 To lr
        cbTenCQ.AddItem .Cells(r, c).Value
    Next r
Next c
End With
End Sub