[حل شده] درخواست فرمول برای شناسایی سلول های یکسان و مرج کردن اتوماتیک آنها به تعداد خیلی زیاد

[mahmoodghaffari]

درخواست فرمول برای شناسایی سلول های یکسان و مرج کردن اتوماتیک آنها به تعداد خیلی زیاد

سلام لطفا هرکسی بلده فرمولشو حتما کمک کنه که خیلی ضروریه
ممنون

ما تو بانک یه فایل اکسل داریم با حدود 6000 پرونده که واسه هرکس 1 تا 7 تا سند ضمانت ثبت شده
طبق عکس باید شماره حساب های یه شخص به جای جدا جدا بودن , توی یه سلول مرج بشن
ولی چون تعداد بالای 6000 تا هستش و تک تک مرج کردنش زمان زیادی میبره میخوام ببینم فرمول یا روش یا ترفندی واسه یکجا زدنش هست یا نه

یعنی منظورم اینه به جای دونه دونه مرج کردن سلول ها با داده های مشترک , به صورت یکجا سلول های با اطلاعات مشترک اتوماتیک شناسایی بشن و مرج بشن



اگه کسی میدونه لطفا حتما راهنماییم کنه که خیلی ضروریه
سرچ که کردم تو هیچ جایی هم نبود
ممنون از کمک هاتون ..

[Amir Ghasemiyan]

درخواست فرمول برای شناسایی سلول های یکسان و مرج کردن اتوماتیک آنها به تعداد خیلی زیاد

سلام لطفا هرکسی بلده فرمولشو حتما کمک کنه که خیلی ضروریه
ممنون

ما تو بانک یه فایل اکسل داریم با حدود 6000 پرونده که واسه هرکس 1 تا 7 تا سند ضمانت ثبت شده
طبق عکس باید شماره حساب های یه شخص به جای جدا جدا بودن , توی یه سلول مرج بشن
ولی چون تعداد بالای 6000 تا هستش و تک تک مرج کردنش زمان زیادی میبره میخوام ببینم فرمول یا روش یا ترفندی واسه یکجا زدنش هست یا نه

یعنی منظورم اینه به جای دونه دونه مرج کردن سلول ها با داده های مشترک , به صورت یکجا سلول های با اطلاعات مشترک اتوماتیک شناسایی بشن و مرج بشن



اگه کسی میدونه لطفا حتما راهنماییم کنه که خیلی ضروریه
سرچ که کردم تو هیچ جایی هم نبود
ممنون از کمک هاتون ..

[ATTACH=CONFIG]16684[/ATTACH]

سلام دوست عزيز
يك روشي كه ميتونين استفاده كنين اينه كه اطلاعات اين دو ستون رو در جاي ديگه اي كپي كنيد و از ابزار remove duplicate كمك بگيريد و موارد تكراري رو حذف كنيد. اينطوري بدون مرج كردن يك ليست يونيك از نام مشتري ها و شماره حساب ها خواهيد داشت.
اگر اين روش مناسبتون نيست و بايد حتما اطلاعات مرج بشه بايد از كدهاي vba استفاده كنيد. اگر اينطوري هست بفرماييد تا كد رو براتون بنويسم
فقط اين نكته رو در نظر داشته باشيد كه در صورتي كه مرج كنيد ساختار فايلتون از حالت ديتابيسي خارج ميشه و قطعا تو گزارشات و ... به مشكل ميخوريد. (در صورتي كه از اين فايل فقط براي نمايش يا پرينت ميخواهيد استفاده كنيد اين روش مناسب است)

[iranweld]

با سلام

فایل پیوست را بررسی کنید

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

Sub test()

Application.DisplayAlerts = False

Z1 = Cells(Rows.Count, "A").End(xlUp).Row

For I = 2 To Z1 + 1

For J = I To Z1 + 1

If Range("a" & I) = Range("a" & J) Then



Else



Range("A" & I & ":A" & J-1).Merge
    
 
I = J - 1

Exit For

End If

Next


Next

Application.DisplayAlerts = True

End Sub 

[mahmoodghaffari]

سلام دوست عزيز
يك روشي كه ميتونين استفاده كنين اينه كه اطلاعات اين دو ستون رو در جاي ديگه اي كپي كنيد و از ابزار remove duplicate كمك بگيريد و موارد تكراري رو حذف كنيد. اينطوري بدون مرج كردن يك ليست يونيك از نام مشتري ها و شماره حساب ها خواهيد داشت.
اگر اين روش مناسبتون نيست و بايد حتما اطلاعات مرج بشه بايد از كدهاي vba استفاده كنيد. اگر اينطوري هست بفرماييد تا كد رو براتون بنويسم
فقط اين نكته رو در نظر داشته باشيد كه در صورتي كه مرج كنيد ساختار فايلتون از حالت ديتابيسي خارج ميشه و قطعا تو گزارشات و ... به مشكل ميخوريد. (در صورتي كه از اين فايل فقط براي نمايش يا پرينت ميخواهيد استفاده كنيد اين روش مناسب است)

با دابلی کِیت نمیشه


جلوی این ردیف ها اطلاعات دیگه ای مربوط به همون پرونده ها هستش که نباید حذف بشه
مثلا توی پرونده نفر اول اون عکسی که زدم : اکبر نقی لو :
ردیف اول اطلاعات چک ضمانتی
ردیف دوم اطلاعات سند ملکی
ردیف سوم اطلاعات سفته ضمانتی

نوشته شده و نباید حذف بشن

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

خلاصه بگم :
روشی باشه که بصورت اتوماتیک و یکجا اطلاعات یکسان داخل سلول های یه ستون رو شناسایی کنه و مرج کنه

ممنون از راهنماییتون

[Amir Ghasemiyan]

پس همين روشي كه استاد iranweld فرمودن رو بايد استفاده كنيد

[mahmoodghaffari]

با سلام

فایل پیوست را بررسی کنید

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

Sub test()

Application.DisplayAlerts = False

Z1 = Cells(Rows.Count, "A").End(xlUp).Row

For I = 2 To Z1 + 1

For J = I To Z1 + 1

If Range("a" & I) = Range("a" & J) Then



Else



Range("A" & I & ":A" & J-1).Merge
    
 
I = J - 1

Exit For

End If

Next


Next

Application.DisplayAlerts = True

End Sub 

ممنون از لطفتون
دقیقا همینو میخواستم
باید تغییرات مربوطه رو تو فرمول اجرا کنم تا تو فایل خودم انجام بشه

[Amir Ghasemiyan]

ممنون از لطفتون
دقیقا همینو میخواستم
باید تغییرات مربوطه رو تو فرمول اجرا کنم تا تو فایل خودم انجام بشه

دوست عزيز اگر پاسخ سوالتون رو دريافت كردين لطفا تاپيك رو حل شده كنيد