الرجاء ايجاد اسهل طريقة لحذف الصفوف والاععمدة الفارغة

[الزهور الفيحاء]

الرجاء المساعدة فى حذف الصفوف والاعمدة الفارغة بطريقة يمكن تطبيقها على ملفات اخرى مشابهة لهذا الملف 

واعادة ضبط الورقة لتناسب حجم الورقه للطباعه 

حذف الصفوف والخلايا الفارغة.xls

[Ali Mohamed Ali]

تفضل

 

حذف الصفوف والخلايا الفارغة.xlsm

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

جرب هذا الماكرو (على اساس ان البيانات تبدأ من الخلية A1 ) و يتخللها صفوف و أعمدة فارغة

Sub del_rows_and_columns()
Dim my_rg1 As Range, my_rg2 As Range
Dim y%: y = Cells(1, Columns.Count).End(1).Column
Dim x%: x = Cells(Rows.Count, 1).End(3).Row
Set my_rg1 = Range(Cells(1, 1), Cells(1, y)).SpecialCells(4)
Set my_rg2 = Range(Cells(1, 1), Cells(x, 1)).SpecialCells(4)

my_rg1.EntireColumn.Delete
my_rg2.EntireRow.Delete
End Sub

 

[الزهور الفيحاء]

10 ساعات مضت, ali mohamed ali said:

تفضل

 

حذف الصفوف والخلايا الفارغة.xlsm

اخونا واستاذنا الفاضل بارك الله فيك لكنى كنت اريد حذف الاعمدة والصفوف الفارغة وليس اخفائها فقط لاننى اريد وضع حدود border  للجدول 

[الزهور الفيحاء]

10 ساعات مضت, سليم حاصبيا said:

جرب هذا الماكرو (على اساس ان البيانات تبدأ من الخلية A1 ) و يتخللها صفوف و أعمدة فارغة

Sub del_rows_and_columns()
Dim my_rg1 As Range, my_rg2 As Range
Dim y%: y = Cells(1, Columns.Count).End(1).Column
Dim x%: x = Cells(Rows.Count, 1).End(3).Row
Set my_rg1 = Range(Cells(1, 1), Cells(1, y)).SpecialCells(4)
Set my_rg2 = Range(Cells(1, 1), Cells(x, 1)).SpecialCells(4)

my_rg1.EntireColumn.Delete
my_rg2.EntireRow.Delete
End Sub

 

استاذنا الفاضل / سليم 

بعد ان قمت بنسخ الكود ولصقه لم استطيع تنفيذ الماكرو حيث اننى ليس على درايه كامله بالـ vba حيث اننى مازلت مبتدأً 

فكيف اقوم بتنفيذه بطريقه سليمه 

[الزهور الفيحاء]

14 ساعات مضت, ali mohamed ali said:

 

 

للرفع