جمع بندی و مرتب کردن اطلاعات

[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