[حل شده] دسته بندی اعداد یا حروف بدون

[mahdi2013]

سلام
در سوال قبل تنها اطلاعات عددی وجود داشت اما در این مورد هر دو وجود دارند ضمن اینکه حروف بزرگ و کوچک نیز حضور دارند.
داده ها یا به صورت سطری یا ستونی وارد اکسل میشه بطور مثال به صورت سطری زیر که شامل اعداد و حروف میباشد و تنها یک کارکتر در هر سلول جا میگیرد.

1	0	0	0	0	5	5	5	5	b	B	B	a	H	5	5	4	4	Q	q	Q	R	3	3	3	3	5	G	G	G	G	g	G	G

حال بایستی به صورت زیر SORT بشوند.ضمنا تعداد اعداد ورودی مشخص نیست.(نامحدود) و در هر ستون کارکتر بزرگ و کوچک حروف از یک گروه میباشند و بایستی در زیر هم قرار بگیرند.

							1	0	5	B	a	H	5	4	Q	R	3	5	G
								0	5	B			5	4	q		3		G
								0	5	b					Q		3		g
								0	5								3		G
																			G
																			G
																			G

[iranweld]

فایل پیوست را بررسی نمایید

Sub test()

Sheet2.Cells.ClearContents

k1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1

k = 1
f = 1

For i = 1 To k1

For j = i To k1

If LCase(Cells(i, 1)) = LCase(Cells(j, 1)) Then

t = t + 1

Cells(j, 1).Copy Destination:=Sheet2.Cells(f, k)
f = f + 1

Else

k = k + 1
i = t
j = t + 1
f = f + 1

Exit For

t = 0

End If

Next

f = 1

Next

Sheet2.Select

End Sub 

[mahdi2013]

خیلی خیلی ممنون .