Sub xuanzexx() Dim i As Integer For i = 135 To 4 Step -1 If Cells(i, 11) = "" Then Rows(i).Select Selection.Delete Shift:=xlUp End If Next i End Sub
评论(0)