Sub CheckTableCells()
Application.DisplayAlerts = False
Dim sht As Worksheet
Dim i, j As Integer
For i = 1 To 284
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
Sub CheckTableCells1()
Application.DisplayAlerts = False
Dim sht As Worksheet
Dim i, j As Integer
For i = 1 To 539
If (Range("e" & i).Value = "") Then
If (Range("d" & (i)).Value <> "") Then
Range("e" & i).Value = Range("d" & (i)).Value
Range("d" & i).Value = ""
End If
End If
Next
End Sub
标签：CFPS,Dim,End,Sub,EXCEL,Value,Next,Range,STATA From： https://www.cnblogs.com/xkdn/p/17131627.html