VBA删除第三列以下有数据的单元格

VBA代码如下：

Sub DeleteCells()
    Dim i As Long
    For i = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
        If Cells(i, 3) <> "" Then
            Rows(i).EntireRow.Delete
        End If
    Next i
End Sub

这段代码会循环检查第3列每一行，如果单元格不为空，就删除整行。