Изтриване на редове във VBA

Anonim

В тази статия ще научим как да изтриете редовете, когато няма данни в целия ред.

Следва моментната снимка на данните, с които разполагаме:

Концепцията зад този урок е, ако има някакъв пълен празен ред, намерен в избрания диапазон A1: E10, тогава vba кодът трябва да изтрие този ред.

Трябва да изпълним следните стъпки:

  • Кликнете върху раздела Разработчик
  • От групата Кодове изберете Visual Basic

  • Въведете следния код в текущия модул на работен лист

Sub DeleteEntireRow ()

Dim i As Long

„Изчисляването и актуализирането на екрана се изключват, за да се ускори макросът

С приложение

.Calculation = xlCalculationManual

.ScreenUpdating = Неверно

For i = Selection.Rows.Count To 1 Step -1

Ако WorksheetFunction.CountA (Selection.Rows (i)) = 0 Тогава

Selection.Rows (i) .EntireRow.Delete

Край Ако

Следва i

.Изчисляване = xlИзчисляванеАвтоматично

.ScreenUpdating = Вярно

Край с

End Sub

  • Нека първо изтрием данните последователно ръчно, за да тестваме нашия код.
  • След копиране на кода; изберете диапазона A1: E10 и изтрийте ръчно всеки ред

  • Сега стартирайте макроса, като използвате клавишите ALT + F8 и изберете DeleteEntireRow

  • Празният ред е изтрит и всички по -долу редове са изместени нагоре.

По този начин можем да изтрием редове с помощта на vba в Microsoft Excel.

Изтегляне-изтриване на редове във VBA