دسته بندی اعداد یا حروف بدون

[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]

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