excel VBA删除指定列空单元格所在行的代码

以下是 VBA 删除指定列空单元格所在行的代码：

Sub DeleteEmptyRows()
Dim lastRow As Long
Dim i As Long
Dim col As Integer

col = 2 '指定要删除空单元格所在行的列号，这里是第二列

lastRow = ActiveSheet.Cells(Rows.Count, col).End(xlUp).Row '获取最后一行

For i = lastRow To 1 Step -1 '从最后一行开始往上遍历
If IsEmpty(Cells(i, col)) Then '如果该单元格为空
Rows(i).Delete '删除该行
End If
Next i
End Sub