[حل شده] نحوه مقایسه دو ستون

[BahmanSE]

با سلام وخسته نباشید
بنده در اکسل 2 ستون دارم که یکیش شامل 5000 سطر و دیگری نزدیک 4000 سطر . کدهای این دوستون که بعضا دارای حروف نیز میباشد مشابه هم هستند . میخوام این دو ستون رو sort کنم تا از کوچک به بزرگ چیده بشه . سپس موارد مشابه هم در جلو هم دیگه قرار داده بشه . یعنی کدهای مشابه هم در جلوی هم قرار بگیرن.
لازم به ذکر هست که جلو هر کد یک مقدار عددی نیز هست که اونا هم باید با کد ها جابجا شوند
امیدوارم که تونسته باشم منظورم رو رسونده باشم . عکس زیر هم میتونه منظورم رو بهتر برسونه

[iranweld]

با سلام

در فایل پیوست با استفاده از ماکرو ابتدا ستون اول سورت شده و سپس ستون a و b در ستون g,h کپی میگردد
و سپس با یک ماکرو دیگر کدهای مشابه در کنار یکدیگر درج میگردد

Sub test2()

z1 = Sheet1.Cells(Sheet1.Rows.Count, "g").End(xlUp).Row

z2 = Sheet1.Cells(Sheet1.Rows.Count, "d").End(xlUp).Row

For i = 2 To z1
For j = 2 To z2

If Range("g" & i) = Range("d" & j) Then

Range("i" & i) = Range("d" & j)
Range("j" & i) = Range("e" & j)
End If

Next
Next


Application.ScreenUpdating = True

End Sub 

[BahmanSE]

با سلام

در فایل پیوست با استفاده از ماکرو ابتدا ستون اول سورت شده و سپس ستون a و b در ستون g,h کپی میگردد
و سپس با یک ماکرو دیگر کدهای مشابه در کنار یکدیگر درج میگردد

Sub test2()

z1 = Sheet1.Cells(Sheet1.Rows.Count, "g").End(xlUp).Row

z2 = Sheet1.Cells(Sheet1.Rows.Count, "d").End(xlUp).Row

For i = 2 To z1
For j = 2 To z2

If Range("g" & i) = Range("d" & j) Then

Range("i" & i) = Range("d" & j)
Range("j" & i) = Range("e" & j)
End If

Next
Next


Application.ScreenUpdating = True

End Sub 

خیلی ممنون دوست عزیز. خدا خیرت بده.