使用VBA在Excel中删除行

Sub DeleteRow()
    Dim rowNum As Integer
    rowNum = 5 '要删除的行号
    
    Rows(rowNum).Delete '删除指定行
End Sub

Sub DeleteRowsWithCondition()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行的行号
    
    For i = lastRow To 1 Step -1
        If Cells(i, "A").Value < 10 Then '根据条件判断是否删除行
            Rows(i).Delete
        End If
    Next i
End Sub