Sub CheckTableCells()
Application.DisplayAlerts = False
Dim sht As Worksheet
Dim i, j As Integer
For i = 1 To 10000
If (Range("e" & i).Value = "") Then
If (Range("a" & (i + 1)).Value = "") Then
If (Range("b" & (i + 1)).Value <> "") Then
If (Range("c" & (i + 1)).Value = "") Then
Range("e" & i).Value = Range("b" & (i + 1)).Value
Rows(i + 1).Delete
End If
End If
End If
End If
Next
End Sub
标签：Dim,VBA,End,Sub,删除,Value,Range,单元 From： https://www.cnblogs.com/xkdn/p/17121411.html