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

[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