ник: osmor
если внутри Excel, то как-то так
Dim lngRow As Long
lngRow = 1
Do While Cells(lngRow, 2) <> ""
If Cells(lngRow, 2) <= 0 Then
Call Rows(lngRow).Delete
Else
lngRow = lngRow + 1
End If
Loop
|
Если из Aсcess, то логичнее сделать запрос на удаление