حذف ستون هایی که مقادیر صفر دارند

[iranweld]

با سلام

از این ماکرو نیز میتوانید استفاده کنید و هیچ محدودیتی در تعداد ستونها وجود ندارد.

Sub test()
k = 4
n = Application.WorksheetFunction.CountA(Range("3:3")) + 1

For j = 2 To n
If Cells(4, j).Value <> 0 Then

Cells(14, k).Value = Cells(3, j).Value
Cells(15, k).Value = Cells(4, j).Value
k = k + 1

End If
Next j 

[DOLFIN]

سطر سوم که داده 1 و 2 و ... درونش هست رو select کنید سپس کلیک راست کنید و insert رو انتخاب کنید تا سطر سوم به چهارم منتقل بشه.
همانطور که می بینید در جدول فرمول ها عددی برگشت داده نمیشه پس به اولین سلول فرمول ها یعنی b15 می رویم و عدد 3 بعد از address رو به عدد 4 تغییر بدید و ctrl+shift+enter رو باهم بزنید تا فرمول به صورت آرایه ای استفاده بشه در غیر این صورت فرمول خروجی نداره.
در نهایت فرمول رو به سلول های مجاور درگ میکنیم.
ضمنا دوست من بنده به عنوان یک کاربری ساده قصد راهنمایی شما را داشتم برای همین لازم دیدم توضیحاتی رو در خصوص یادگیری اکسل به شما بدهم . حالا اگر شما مخالف هستید و به قول خودتان "من اکسلم بد نیست، فهمیدم هم چی کار کردید" که خیلی هم عالیست .
با آرزوی موفقیت برای شما دوست عزیز

[md14511]

با سلام

از این ماکرو نیز میتوانید استفاده کنید و هیچ محدودیتی در تعداد ستونها وجود ندارد.

Sub test()
k = 4
n = Application.WorksheetFunction.CountA(Range("3:3")) + 1

For j = 2 To n
If Cells(4, j).Value <> 0 Then

Cells(14, k).Value = Cells(3, j).Value
Cells(15, k).Value = Cells(4, j).Value
k = k + 1

End If
Next j 

یعنی خیر دنیا و آخرت نصیبتون

خیلییییییی عالی بود

ممنون و هزار بار تشکر