Xin giúp phân loại số theo nhóm số có 1, 2, 3 chữ số

[Numeric]

Dữ liệu là tập hợp các con số, gồm: các số có 1 chữ số, các số có 2 chữ số, các số có 3 chữ số.
Làm thế nào để sắp các số đó vào các cột: cột số có 1 chữ số, cột số có 2 chữ số, cột số có 3 chữ số?
Kính mong anh/chị giúp đỡ. Em trân trọng cảm ơn ạ!

Dữ liệu A1: 1 2 34 56 789

Kết quả mong muốn
(Số có 1 chữ số) B1: 1 2
(Số có 2 chữ số) C1: 34 56
(Số có 3 chữ số) D1: 789

 

[VetMini]

Có cách nào gộp 2 Function lại thành một cho gọn, khỏi phải nhớ 2 Funtion

Trường phái viết code của tôi có nhiều đối nghịch với các bạn ở đây lắm. Và cái vụ "1 function làm nhiều thứ" là trái quan điểm của tôi ở trường hợp này.

Tuy nhiên, nếu bạn muốn tìm hiểu thì tôi đề nghị dùng tham thứ hai cho PhanLoaiM là Optional ByVal loai As Integer = 0
Code vẫn như bình thường.
Cuối code:
If loai <= 0 Then ' lấy cả cụm
PhanLoaiM = a
ElseIf loai > sz Then
PhanLoaiM = ""
Else
PhanLoaiM = a(loai)
End If

Có cách khác, dùng Paramarray. Cách này sẽ cho phép chọn lựa nhiều kiểu trả về. Tuy nhiên, càng nhiều chọn lựa thì càng phức tạp. Và không thể gọi là "gọn" được.