如果区域中的单元格为空，Vba是否删除行？

Sub DeleteEmptyRows()
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    
    ' 设置要检查的区域范围
    Set rng = Range("A1:A10") ' 修改为你需要的区域
    
    ' 获取区域最后一行的行号
    lastRow = rng.Rows.Count + rng.Row - 1
    
    ' 从最后一行开始向上遍历
    For i = lastRow To rng.Row Step -1
        ' 检查每个单元格是否为空
        If IsEmpty(rng.Cells(i)) Then
            ' 如果为空，则删除整行
            rng.Cells(i).EntireRow.Delete
        End If
    Next i
End Sub