[حل شده] جمع بندی و مرتب کردن اطلاعات

[sunstar]

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

[amir_ts]

با سلام
فایل نمونه رو ملاحظه کنید.
یک ستون ادغام سه ستون هست ، یک ستون حذف تکراری و ستون آخر مرتب شده از کوچک به بزرگ.
فرمول ستون d و e آرایه ای میباشد.

[sunstar]

آیا روشی نیست که از طریق کد نویسی مشکل را حل کرد؟ با سپاس فراوان

[Amir Ghasemiyan]

آیا روشی نیست که از طریق کد نویسی مشکل را حل کرد؟ با سپاس فراوان

سلام
چرا. با کدنویسی هم امکان پذیره. خدمت شما:

Sub EI_SortAndFilter()
    Range("A1:A" & Range("A1").End(xlDown).Row).Copy
    Range("D1").PasteSpecial xlPasteValues
    Range("B1:B" & Range("B1").End(xlDown).Row).Copy
    Range("D1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues
    Range("C1:C" & Range("C1").End(xlDown).Row).Copy
    Range("D1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues
    Range("D1:D" & Range("D1").End(xlDown).Row).RemoveDuplicates Columns:=1, Header:=xlNo
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("D1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("D1:D" & Range("D1").End(xlDown).Row)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub