Удаление строк в Excel с помощью VBA

Question

Я новый программист для VBA. Я использую простую строку для удаления строк из цикла for, который я создал. Эта простая строка удаляет текущую строку.

Rows(i).EntireRow.Delete 

У меня, однако, есть содержание в столбце D, которое я не хочу удалять. Есть ли способ оправдать «EntireRow» чему-то еще, например «A, B, C»?

a b c d 
1 x x x N 
2 x x x N 
3 x x x N 

X = не нужно. N = необходимо.

Answer 1

Если вы записываете макрос, вы получите что-то вроде:

Selection.Delete Shift:=xlUp 

так вот несколько вариантов:

Rows(i).Resize(, 3).Delete xlUp 

Range("A:C").Rows(i).Delete xlUp 

Range("A1:C1").Offset(i - 1).Delete xlUp 

Answer 2

Попробуйте VBA код:

Sub Delete_Row_If_Not_Whatever() 
Dim RowToTest As Long 
'Macro deletes entire row if "Whatever" is not found in column "D" 

Application.ScreenUpdating = False 'Turn off screen updating. Code runs faster without screen flicker 

'Column Count 4 = "D" 
For RowToTest = Cells(Rows.Count, 4).End(xlUp).row To 2 Step -1 

'Look for "Whatever" save row and delete other rows. Replace "Whatever" with what you want to keep. 
'Column Count 4 = "D" 
With Cells(RowToTest, 4) 
    If .Value <> "Whatever" _ 
    Then _ 
    Rows(RowToTest).EntireRow.Delete 
End With 

Next RowToTest 

Application.ScreenUpdating = True 'Turn on screen updating 
End Sub 

Обязательно сохраните перед созданием резервной копии. :)