حذف ردیف در اکسل

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

Sub bubble_sort()
Dim sortingArray As Variant, i As Long, j As Long, temp As Variant

 sortingArray = Selection.Value

 For i = 1 To (UBound(sortingArray, 1) - 1)
    For j = i To UBound(sortingArray, 1)
       If Val(sortingArray(j, 1)) < Val(sortingArray(i, 1)) Then
          temp = sortingArray(i, 1)
          sortingArray(i, 1) = sortingArray(j, 1)
          sortingArray(j, 1) = temp
       End If
    Next j
 Next i

 Selection.Value = sortingArray

End Sub