vba 每行有6个单元格都有数据则保留反之有1个或1个以上没有数据的

行就删除，可以使用以下VBA代码：

Sub DeleteRowsWithBlankCells() Dim lastRow As Long Dim i As Long

lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = lastRow To 1 Step -1
    If WorksheetFunction.CountA(Range("A" & i & ":F" & i)) < 6 Then
        Rows(i).Delete
    End If
Next i

End Sub

这段代码首先获取工作表中最后一行的行号，然后从最后一行开始向上遍历每一行。对于每一行，如果A到F列中有少于6个单元格有数据，则删除该行。注意，这段代码假定数据从第一行开始，如果不是，请将第7行中的“1”更改为您数据的起始行号。