الاعمدة المكررة

[Alttear]

السلام عليكم

لو تكرمتم ,,كود لحذف الاعمدة المكررة التي تحوي على نفس القيم

و شكرا

 

Dub Clm.rar

[سليم حاصبيا]

جرب هذين الكودين

الاول يقوم باخفاء الاعمدة والثاني حذفها

اختر ما تريد

Sub hid_col()
Dim my_rg As Range
Set my_rg = Range("a2").CurrentRegion
my_rg.Columns.Hidden = False
x = my_rg.Rows.Count
 Set my_rg = Range("a2").CurrentRegion.Offset(1).Resize(x - 1).Resize(1)
 For i = 1 To my_rg.Count
  If Application.CountIf(my_rg.Range(Cells(1), Cells(i)), my_rg.Cells(i)) > 1 Then
    my_rg.Cells(i).EntireColumn.Hidden = True
    End If
 Next
  Set my_rg = Nothing
End Sub
'=============================================================================
Sub del_col()
Dim my_rg As Range
Set my_rg = Range("a2").CurrentRegion
my_rg.Columns.Hidden = False
x = my_rg.Rows.Count
 Set my_rg = Range("a2").CurrentRegion.Offset(1).Resize(x - 1).Resize(1)
 For i = my_rg.Count To 1 Step -1
  If Application.CountIf(my_rg.Range(Cells(1), Cells(i)), my_rg.Cells(i)) > 1 Then
    my_rg.Cells(i).EntireColumn.Delete
  End If
  Next
  Set my_rg = Nothing

End Sub

 

تم تعديل أبريل 27, 2017 بواسطه سليم حاصبيا

[Alttear]

جزاك الله خيرا استاذي الكريم

وهو المطلوب.

[Alttear]

السلام عليكم

أستاذي الكريم ,, الكود يحوي خطأ ما 

في الملف التالي لايوجد اية اعمدة متشابهة و مع ذلك يقوم بالحذف ! , ما السبب ؟

مااريده : حذف الاعمدة المتطابقة تماما من ناحية القيم

 

Del Col.rar

[سليم حاصبيا]

5 ساعات مضت, Alttear said:

السلام عليكم

أستاذي الكريم ,, الكود يحوي خطأ ما 

في الملف التالي لايوجد اية اعمدة متشابهة و مع ذلك يقوم بالحذف ! , ما السبب ؟

مااريده : حذف الاعمدة المتطابقة تماما من ناحية القيم

 

Del Col.rar

في المشاركة التي كتبتها كانت الاعمدة متشابهة تماماً (كل الصفوف في كل عامود متساوية)

و انا اخذت على هذا الاساس

اذا لا كنت تريد ذلك ارفع النموذج المطلوب

[Alttear]

حسنا استاذي الكريم ,, هذا المثال يوضح التعديل المطوب
لو تكرمت و نظرت اليه
المطلوب فيه حذف الاعمدة المتشابهة تماما ( بكافة الخلايا )

و لكم الشكر

 

Delete Same Col.rar

تم تعديل مايو 16, 2017 بواسطه Alttear
الرفع

[Alttear]

لا عليك استاذي الكريم ,, انتهيت من الامر

شكرا لجهودكم معنا 

[سليم حاصبيا]

وجدت لك الحل في هذا الملف

 

hide_similar_columns.rar