یافتن اعداد تکراری وشمارش ان

[hosein]

با سلام
من در 4 ستون تعداد زیادی داده دارم که میخوام بیشترین اعداد تکرار شده در کل 4 ستون درستون بعدی بنمایش در بیاد البته تعداد تکرار رو هم میخوام معلوم باشه .
دوستان لطفا راهنمایی بفرمایید

در ضمن با استفاده ازvb نباشه .حتی المقدور میخوام با توابع و ابزار تولباکس بشه انجامش داد .

در فایل زیر ستونهایc,d,e,f مورد جستجو هستند.

با تشکر

[rahi_feri]

سلام
از pivot. استفاده کنید...!

[hosein]

سلام
از pivot. استفاده کنید...!

سلام
پیوت به ترتیب بزرگترین عدد رو نشون میده ونه ترتیب تکرارها رو اونهم در یک ستون یا سطر ونه در چهار ستون.اگر من اشتباه متوجه شدم بفرمایید.



با تشکر

[iranweld]

با سلام

در فایل پیوست برای ستونهای مورد نظر با Advance fillter ی، ک لیست بدون تکرار برای هر ستون ایجاد گردید و سپس با دستور countif شمارش انجام شد

[hosein]

با سلام

در فایل پیوست برای ستونهای مورد نظر با Advance fillter ی، ک لیست بدون تکرار برای هر ستون ایجاد گردید و سپس با دستور countif شمارش انجام شد

با سلام
چناب iranweld با تشکر از توجهتون .خیلی ممنون ایده خیلی خوبیه ولی یک مشکل داره اونم اینکه میخوام تعداد تکرار در تمام چهار ستون نمایش داده بشه اینچوری ستونهارو تک تک بررسی میکنه .ایا راهی داره؟
ممنون

در ضمن من advance fillter رو فایل نتونستم اجرا کنم این ارور رو میده:

[hosein]

هم با انتخاب یک ستون ارور میده هم با 4 تا ستون.

[iranweld]

با سلام

فیلم و فایل پیوست را ملاحظه کنید

فیلم اول

فیلم دوم

فایل

[hosein]

سلام
iranweld گرامی خیلی ممنون .مطلب رو کاملا فهمیدم .واین کار منو تقریبا راه میاندازه ولی چون تعداد فایلها زیاده 40 تا 50 تاست اینجوری وقت گیر میشه .اگر میشد این 4 ستون را که عدد تکرار رو نشون میده جمع زد ونتیجه رو تو ستون دیگه ای نشون داد کار خیلی روان تر میشد.
البته باکپی ستون اعداد اولیه زیر هم وبعداستفاده از ابزار جستجو به روشی که شما ذکر کردید امکانپذیره ولی باز مشکل زمانبری و دستگیر بودن برقراره.
یکی از دوستان اینکار رو با vb انجام دادند ولی چون من با کد نویسی ویژوال اشنایی ندارم از اون نتونستم استفاده کنم.

ولی برای اینکه منظورم رو بهتر برسونم فایلشو اینجا میزارم .
نشد فایل رو اپلود کنم .عکسشو میزارم.
بازم تشکر از توجهتون

[iranweld]

فایل رو بصورت زیپ شده ضمیمه سایت کنید

[hosein]

خدمت شما:

[iranweld]

ماکرو درست عمل میکنه برای استفاده شما اطلاعات موجود در شیت فایل حاوی ماکرو رو حذف کنید و دیتای فایل جدید خود را در این شیت کپی کنید و سپس ماکرو رو اجرا کنید

[hosein]

درود
ایا بهتر نیست خود ماکرو را در فایلهای دیگه کپی کنم؟

[iranweld]

درود
ایا بهتر نیست خود ماکرو را در فایلهای دیگه کپی کنم؟

اگر انتقال کدها رو بلد هستید اینکار رو انجام بدید راحتتر هستش

[hosein]

iran weld عزیز ایا برای این کار از فرمول نویسی ارایه ای نمیشه استفاده کرد؟ یا این addins ها که در اکسل هستند چطور؟

میدونید من دقیقا دنبال اولین و ساده ترین مفهوم علم امار یعنی فراوانی مطلق اعداد داخل فایل هستم بنظرم باید تابعی

باشه که اینو نشون بده.

بازم ممنون

[iranweld]

ماکرو فایل پیوست نسبت به ماکرو قبلی سریعتر میباشد

Sub test()

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

Range("m1:O" & z2).ClearContents

Range("m1") = "data"
Range("o1") = "tekrar"

For j = 3 To 6

z1 = Cells(Rows.Count, j).End(xlUp).Row

z2 = Cells(Rows.Count, "m").End(xlUp).Row + 1

Range(Cells(2, j), Cells(z1, j)).Copy Destination:=Sheet1.Range("m" & z2)

Next

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

Range("M1:M" & z2).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "N1"), Unique:=True
        
        Range("O2").Select
        
        Selection = "=COUNTIF(M:M,N2)"
        
    Selection.AutoFill Destination:=Range("O2:O20005")
    

End Sub