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

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • sunstar

    • 2013/12/29
    • 132
    #1

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

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

      • 2015/03/17
      • 1247
      #2
      با سلام
      فایل نمونه رو ملاحظه کنید.
      یک ستون ادغام سه ستون هست ، یک ستون حذف تکراری و ستون آخر مرتب شده از کوچک به بزرگ.
      فرمول ستون d و e آرایه ای میباشد.
      فایل های پیوست شده
      [SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]

        کامنت

        • sunstar

          • 2013/12/29
          • 132
          #3
          آیا روشی نیست که از طریق کد نویسی مشکل را حل کرد؟ با سپاس فراوان

            کامنت

            • Amir Ghasemiyan

              • 2013/09/20
              • 4598
              • 100.00
              #4
              نوشته اصلی توسط sunstar
              آیا روشی نیست که از طریق کد نویسی مشکل را حل کرد؟ با سپاس فراوان

              سلام
              چرا. با کدنویسی هم امکان پذیره. خدمت شما:
              کد:
              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

                کامنت

                قبلی template بعدی
                چند لحظه..