اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

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

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

اختر ما تريد

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

 

تم تعديل بواسطه سليم حاصبيا
  • Like 1
قام بنشر

السلام عليكم

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

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

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

 

Del Col.rar

قام بنشر
5 ساعات مضت, Alttear said:

السلام عليكم

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

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

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

 

Del Col.rar

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

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

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

  • 3 weeks later...
قام بنشر (معدل)

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

و لكم الشكر

 

Delete Same Col.rar

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information