vba 每行有三个单元格都有数据则保留反之有1个或1个以上没有数据的则删除这一行

以下是一个示例代码，可以实现您所需的操作：

Sub deleteEmptyRows()
    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 & ":C" & i)) < 3 Then
            Rows(i).Delete
        End If
    Next i
End Sub

这个代码会遍历所有行，如果某一行中A列到C列的单元格中有不少于一个空单元格，则删除这一行。请确保您在运行此代码之前备份您的数据。