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

行将被删除。

以下是实现此功能的VBA代码：

Sub DeleteEmptyRows()

Dim lastRow As Long Dim i As Long

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

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

End Sub

该代码首先定义了最后一行的行数，然后从最后一行开始向上循环，并检查该行中第一个单元格到第七个单元格之间是否有任何数据。如果没有数据，则删除该行。最后，将保留所有有数据的行，同时删除没有数据的行。