این آموزش به شما یاد می دهد که چگونه ستون های خالی را در اکسل با ماکرو، فرمول و کلیک دکمه حذف کنید.

هرچقدر هم که به نظر بی اهمیت به نظر می رسد، حذف ستون های خالی در اکسل بسیار ساده است. چیزی نیست که فقط با یک کلیک ماوس قابل انجام باشد. با دو کلیک نیز نمی توان آن را انجام داد. چشم انداز بررسی تمام ستون های کاربرگ خود و حذف ستون های خالی به صورت دستی قطعاً چیزی است که می خواهید از آن اجتناب کنید. خوشبختانه، مایکروسافت اکسل بسیاری از ویژگی های مختلف را ارائه می دهد، و با استفاده از این ویژگی ها به روش های خلاقانه می توانید تقریباً با هر کاری کنار بیایید!

راهی سریع برای حذف ستون های خالی که هرگز نباید استفاده از

وقتی نوبت به حذف جاهای خالی در اکسل می رسد (خواه سلول های خالی، ردیف یا ستون باشد)، بسیاری از منابع آنلاین به رفتن به ویژه > جای خالی<2 متکی هستند> فرمان هرگز این کار را در کاربرگ های خود انجام ندهید!

این روش ( F5 > ویژه… > blanks ) پیدا می کند و همه سلول های خالی را در محدوده انتخاب می کند:

اگر اکنون روی سلول های انتخاب شده راست کلیک کرده و Delete > کل ستون ، تمام ستون هایی که حاوی حداقل یک سلول خالی هستند از بین خواهند رفت! اگر ناخواسته این کار را انجام داده اید، Ctrl + Z را فشار دهید تا همه چیز برگردد.

اکنون که روش اشتباه حذف ستون های خالی در اکسل را می شناسید، بیایید ببینیم چگونه این کار را درست انجام دهیم.

نحوه حذف ستون های خالی در اکسل با VBA

Experiencedکاربران اکسل این قانون را می دانند: برای اینکه ساعت ها را برای انجام دستی کاری هدر ندهید، چند دقیقه روی نوشتن یک ماکرو سرمایه گذاری کنید که این کار را به طور خودکار برای شما انجام می دهد.

ماکرو VBA زیر، تمام ستون های خالی در انتخاب شده را حذف می کند. دامنه. و این کار را با خیال راحت انجام می دهد - فقط ستون های کاملاً خالی حذف می شوند. اگر یک ستون حاوی یک مقدار سلول منفرد باشد، حتی یک رشته خالی که توسط فرمولی برگردانده شده است، چنین ستونی دست نخورده باقی می ماند.

ماکرو اکسل: ستون های خالی را از صفحه اکسل حذف کنید Public Sub DeleteEmptyColumns() Dim SourceRange As Range Dim EntireColumn As Range در خطای رزومه تنظیم بعدی SourceRange = Application.InputBox( _ "انتخاب محدوده:"، "حذف ستون های خالی"، _ Application.Selection.Address، نوع :=8) اگر نه (SourceRange چیزی نیست) سپس Application.ScreenUpdating = False برای i = SourceRange.Columns.Count To 1 Step -1 EntireColumn = SourceRange.Cells(1, i).EntireColumn If Application.WorksheetFunction.CountA(EntireColumn) = 0 سپس EntireColumn.Delete End If NextUpplication.Scre End اگر End Sub

نحوه استفاده از ماکرو Delete Empty Columns

در اینجا مراحل اضافه کردن ماکرو به اکسل وجود دارد:

1. برای باز کردن ویژوال بیسیک Alt + F11 را فشار دهید. ویرایشگر.
2. در نوار منو، روی Insert > Module کلیک کنید.
3. کد بالا را در پنجره کد جای‌گذاری کنید w.
4. F5 را فشار دهید تا ماکرو اجرا شود.
5. وقتی پنجره بازشو ظاهر شد، بهکاربرگ مورد علاقه، محدوده مورد نظر را انتخاب کنید و روی OK کلیک کنید:

اگر نمی خواهید یک ماکرو به کاربرگ خود اضافه کنید، می توانید آن را از طریق ما اجرا کنید. نمونه کتاب کار به این صورت است:

1. کتاب کار نمونه ما را برای حذف ستون‌های خالی در اکسل دانلود کنید، آن را باز کنید و در صورت درخواست محتوا را فعال کنید.
2. کتاب کار خود را باز کنید یا به کتابی که قبلاً باز شده است بروید.
3. در کتاب کار خود، Alt + F8 را فشار دهید، ماکرو DeleteEmptyColumns را انتخاب کنید و روی Run کلیک کنید.
4. در گفتگوی پاپ آپ، را انتخاب کنید محدوده را انتخاب کنید و روی OK کلیک کنید.

در هر صورت، تمام ستون های خالی در محدوده انتخاب شده حذف می شوند:

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

ماکرو بالا ستون های خالی را به سرعت و بی صدا حذف می کند. اما اگر شما یک نوع "همه چیز را تحت کنترل نگه دارید" هستید (مثل من :) ممکن است بخواهید به صورت بصری ستون هایی را که قرار است حذف شوند ببینید. در این مثال، ابتدا ستون‌های خالی را با استفاده از یک فرمول شناسایی می‌کنیم تا بتوانید سریع آن‌ها را مرور کنید و سپس تمام یا تعدادی از آن ستون‌ها را حذف کنید.

توجه داشته باشید. قبل از حذف دائمی هر چیزی، مخصوصاً با استفاده از یک تکنیک ناشناخته، اکیداً به شما توصیه می کنم که یک کپی پشتیبان از کتاب کار خود تهیه کنید، فقط برای اینکه در صورت بروز مشکل در امنیت باشید.

با یک نسخه پشتیبان در یک مکان امن، مراحل زیر را انجام دهید:

مرحله 1. درج یک نسخه جدیدrow

یک ردیف جدید در بالای جدول خود اضافه کنید. برای این کار، روی هدر ردیف اول کلیک راست کرده و Insert را کلیک کنید. نگران تغییر ساختار/آرایش داده‌های خود نباشید - می‌توانید بعداً این ردیف را حذف کنید.

مرحله 2. ستون‌های خالی را شناسایی کنید

در سمت چپ سلول سطر تازه اضافه شده، فرمول زیر را وارد کنید:

=COUNTA(A2:A1048576)=0

و سپس با کشیدن دستگیره fill فرمول را به سایر ستون ها کپی کنید.

منطق فرمول بسیار ساده است: COUNTA تعداد سلول های خالی در ستون را بررسی می کند، از ردیف 2 تا ردیف 1048576، که حداکثر ردیف در اکسل 2019 - 2007 است. شما آن عدد را با صفر مقایسه می کنید و در نتیجه، در ستون های خالی درست است. و FALSE در ستون هایی که حداقل دارای یک سلول غیر خالی هستند. به دلیل استفاده از ارجاعات سلولی نسبی، فرمول به درستی برای هر ستونی که در آن کپی می شود تنظیم می شود.

در صورتی که کاربرگ را برای شخص دیگری تنظیم می کنید، ممکن است می خواهید ستون ها را به شیوه ای معنادارتر برچسب گذاری کنید. مشکلی نیست، این کار را می توان به راحتی با یک عبارت IF مشابه این انجام داد:

=IF(COUNTA(A2:A1048576)=0, "Blank", "Not blank")

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

نکته. در مقایسه با ماکرو، این روش به شما انعطاف‌پذیری بیشتری در مورد اینکه کدام ستون‌ها باید خالی در نظر گرفته شوند، می‌دهد. در این مثال، کل جدول، از جمله ردیف سرصفحه را بررسی می کنیم. یعنی اگر یک ستونفقط شامل یک هدر است، چنین ستونی خالی در نظر گرفته نمی شود و حذف نمی شود. اگر می‌خواهید فقط ردیف‌های داده را بررسی کنید سرصفحه‌های ستون را نادیده می‌گیرند ، ردیف(های) سرصفحه را از محدوده هدف حذف کنید (A3:A1048576). در نتیجه، ستونی که دارای سرصفحه و هیچ داده دیگری در آن نباشد، خالی تلقی می شود و مشمول حذف می شود. همچنین، می‌توانید محدوده را به آخرین ردیف استفاده شده محدود کنید، که در مورد ما A11 خواهد بود.

مرحله 3. حذف ستون‌های خالی

با داشتن تعداد معقول ستون، می‌توانید به سادگی انتخاب کنید آنهایی که در ردیف اول "خالی" دارند (برای انتخاب چندین ستون، کلید Ctrl را نگه دارید و روی حروف ستون کلیک کنید). سپس، روی هر ستون انتخاب شده کلیک راست کرده و Delete را از منوی زمینه انتخاب کنید:

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

1. ردیف بالا را با فرمول‌ها انتخاب کنید، به برگه داده > مرتب‌سازی و فیلتر بروید و روی دکمه مرتب‌سازی .
2. در کادر محاوره‌ای هشداری که ظاهر می‌شود، Expand the selection را انتخاب کنید و روی Sort…

   کلیک کنید.

3. با این کار کادر محاوره‌ای مرتب‌سازی باز می‌شود، جایی که روی دکمه گزینه‌ها… کلیک می‌کنید، مرتب‌سازی از چپ به راست را انتخاب می‌کنید، و OK را کلیک کنید.

   

4. تنها یک سطح مرتب سازی را مانند شکل زیر پیکربندی کنید و روی OK کلیک کنید:
   • مرتب سازی بر اساس: ردیف 1
   • مرتب سازی: سلولمقادیر
   • ترتیب: A تا Z

   

   در نتیجه، ستون‌های خالی به سمت چپ کاربرگ شما منتقل می‌شوند:

   

5. همه ستون‌های خالی را انتخاب کنید - روی اولین حرف ستون کلیک کنید، Shift را فشار دهید و سپس روی حرف آخرین ستون خالی کلیک کنید.
6. راست- روی ستون های انتخاب شده کلیک کنید و Delete را از منوی بازشو انتخاب کنید.

   

انجام شد! شما از شر ستون‌های خالی خلاص شده‌اید، و هیچ چیزی نمی‌تواند مانع از حذف ردیف بالا با فرمول‌ها شود.

سریع‌ترین راه برای حذف ستون‌های خالی در اکسل

در در ابتدای این آموزش نوشتم که هیچ راهی با یک کلیک برای حذف ستون های خالی در اکسل وجود ندارد. در واقع، این دقیقاً درست نیست. باید می گفتم هیچ راه داخلی وجود ندارد. کاربران Ultimate Suite ما می‌توانند خالی‌ها را در اکسل به معنای واقعی کلمه با چند کلیک حذف کنند :)

در کاربرگ هدف، به تب Ablebits Tools بروید، روی Delete Blanks<کلیک کنید. 2> و Empty Columns :

برای اطمینان از اینکه کلیک تصادفی ماوس نبوده است، افزونه از شما می خواهد که تأیید کنید شما واقعاً می خواهید ستون های خالی را از آن کاربرگ حذف کنید:

روی OK کلیک کنید، و در یک لحظه تمام ستون های خالی از بین می روند!

مانند ماکرو مورد بحث در بالا، این ابزار فقط ستون هایی را حذف می کند که کاملاً خالی هستند . ستون هایی که دارای هر مقدار واحدی هستند، از جمله سرصفحه ها، هستندحفظ شده است.

Delete Blanks تنها یکی از ده ها ویژگی فوق العاده است که می تواند زندگی شما را به عنوان یک کاربر اکسل آسان تر کند. برای یافتن اطلاعات بیشتر، می‌توانید یک نسخه آزمایشی از Ultimate Suite را برای اکسل دانلود کنید.

ستون‌های خالی حذف نمی‌شوند! چرا؟

مسئله : شما همه روش های بالا را امتحان کرده اید، اما یک یا چند ستون خالی در کاربرگ شما گیر کرده است. چرا؟

به احتمال زیاد چون آن ستون ها واقعا خالی نیستند. بسیاری از کاراکترهای نامرئی برای چشم انسان ممکن است بدون توجه در صفحات گسترده اکسل شما پنهان شوند، به خصوص اگر اطلاعات را از یک منبع خارجی وارد کرده باشید. این می تواند صرفاً یک رشته خالی یا یک کاراکتر فاصله، فاصله غیرقابل شکست یا یک کاراکتر غیر چاپی دیگر باشد.

برای پین کردن مقصر، اولین سلول در ستون مشکل ساز را انتخاب کنید و Ctrl + فلش پایین را فشار دهید. . به عنوان مثال، ستون C در اسکرین شات زیر به دلیل یک کاراکتر فاصله در C6 خالی نیست:

روی سلول دوبار کلیک کنید تا ببینید واقعاً چه چیزی در آن است یا به سادگی برای خلاص شدن از شر چیز ناشناخته، کلید Delete را فشار دهید. و سپس روند بالا را تکرار کنید تا متوجه شوید که آیا چیزهای نامرئی دیگری در آن ستون وجود دارد یا خیر. همچنین ممکن است بخواهید داده های خود را با حذف فضاهای پیشرو، دنباله دار و بدون شکست پاک کنید.

از شما برای خواندن تشکر می کنم و امیدوارم هفته آینده شما را در وبلاگ خود ببینیم!