با سلام و احترام، در این پست آموزشی قصد داریم به شما عزیزان ماکرویی جهت حذف سطرهای خالی در اکسل معرفی کنیم که می تواند با چند کلیک ساده به سرعت سطرهای خالی محدوده انتخابی شما را حذف کند.
کدهای ماکرویی که شما نیاز به آن دارید را در ادامه مشاهده می کنید:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Public Sub DeleteBlankRows() Dim SourceRange As Range Dim EntireRow As Range Dim i As Integer Set SourceRange = Application.Selection If Not (SourceRange Is Nothing) Then Application.ScreenUpdating = False For i = SourceRange.Rows.Count To 1 Step -1 Set EntireRow = SourceRange.Cells(i, 1).EntireRow If Application.WorksheetFunction.CountA(EntireRow) = 0 Then EntireRow.Delete End If Next Application.ScreenUpdating = True End If End Sub |
به منظور استفاده از کدهای فوق می بایست آنها را کپی و به داخل یک ماژول (Module) همانند تصویر زیر منتقل کنید:

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

سپس ماکروی DeleteBlankRows را همانند تصویر زیر اجرایی کنید:

نتیجه نهایی شما پس از اجرای ماکرو بصورت زیر خواهد بود:

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

سپس کلید F5 را از روی کیبورد خود فشار دهید تا با پنجره Go To روبرو شوید:

سپس برروی دکمه Special کلیک نمایید:

در پایان تیک Blanks را از پنجره Go To Special کلیک نمایید تا سلول های خالی همانند تصویر زیر درحالت انتخاب قرار گیرند:

در پایان تنها کافی است سطرهای انتخاب را حذف نماییم:

نتیجه نهایی را در ادامه مشاهده می کنید:

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