作者：乔山办公网日期：
返回目录：excel表格制作
亲，来收作源业知咯道
Sub sc()
Dim i As Integer
For i = 44 To 6 Step -1
If Range("R" & i) = Range("E3") Or Range("R" & i) = "" Then
Rows(i).Delete
End If
Next
End Sub
亲，来收作源业知咯道
Sub sc()
Dim i As Integer
For i = 44 To 6 Step -1
If Range("R" & i) = Range("E3") Or Range("R" & i) = "" Then
Rows(i).Delete
End If
Next
End Sub