Как да изтриете редове с липсващи/празни стойности в определени колони в Excel?
В някои случаи може да се наложи да изтриете целите редове с липсваща стойност или празна клетка в диапазон от клетки в Excel. Тази статия ще ви покаже как да се справите с този проблем.
Изтрийте редове с липсващи/празни стойности в определени колони с VBA код
Изтрийте редове с липсващи/празни стойности в определени колони с VBA код
Да предположим, че искате да изтриете редове, ако съществува липсваща стойност в колона B и D, както е показано на екранната снимка по-долу. Можете да изпълните следния VBA код, за да го постигнете.
1. Натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте и поставете VBA кода по-долу в прозореца на кода.
VBA код: Изтрийте редове с липсващи/празни стойности в определени колони
Sub DeleteRows()
Dim I As Integer
Dim xCount As Integer
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
Exit Sub
End If
xCount = xRg.Rows.Count
For I = xCount To 1 Step -1
If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
xRg.Rows(I).EntireRow.Delete
End If
Next
End Sub
3. Натиснете F5 ключ за изпълнение на кода. Тогава Kutools за Excel се появява диалогов прозорец, моля, изберете диапазона от колони, който искате да проверите дали съществува липсваща стойност или не, и след това щракнете върху OK бутон.
След като кликнете върху OK можете да видите, че всички редове с липсваща стойност в колона B и D се изтриват незабавно. Вижте екранна снимка:
Забележка: Не можете да изберете няколко диапазона, за да работите едновременно. Ако съществува липсваща стойност в няколко колони и искате да изтриете всички редове, можете да повторите горната стъпка 3 от една колона в друга.
Лесно попълнете всички празни клетки с определена стойност в Excel
- Попълване на празни клетки полезност на Kutools за Excel може да ви помогне лесно да обработвате празни клетки в Excel. Например можете да попълните всички празни клетки в избран диапазон с фиксирана стойност, да попълните празни клетки въз основа на стойността в горната, долната, лявата или дясната клетка или можете да попълните празните клетки с линейни стойности. Вижте екранна снимка:
Изтеглете и опитайте сега! (30-дневна безплатна пътека)
Свързани статии:
- Как да изтриете редове, ако клетката е по-голяма/по-малка от определена стойност в Excel?
- Как да изтрия всички редове с изключение на първия заглавен ред в Excel?
- Как да изтрия всички редове под определен ред или активна клетка в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!