ماکروی حذف سطرهای خالی در اکسل | نحوه حذف سلول های خالی در اکسل

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

کدهای ماکرویی که شما نیاز به آن دارید را در ادامه مشاهده می کنید:

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

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

End Sub

به منظور استفاده از کدهای فوق می بایست آنها را کپی و به داخل یک ماژول (Module) همانند تصویر زیر منتقل کنید:

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

حال به منظور استفاده از ماکروی فوق، تنها کافی است محدوده داده های خود را همانند تصویر زیر درحالت انتخاب قرار دهید:

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

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

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

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

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

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

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

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

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

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

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

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