D
Deleted member 547
Guest
Mã:
Dim LastRow As Long
'L?y giá tr? dòng cùng cu?i c?t A
LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
'Combobox1 s? l?y t? A1 ??n A:LastRow (Dòng cu?i c?t A)
ComboBox1.RowSource = Range("A1:A" & LastRow).Address