(VBA Excel) Удалить стоку в ячейке которой нет текста

@lapin9126 · Регистрация: 19.10.2015

Здравствуйте, как удалить всю строку если в ячейке столбца "B" нет текста, но в ячейке могут быть пробелы (количество может быть разное). Пробовал этот макрос:

Visual Basic

Sub Row_Cleaner()
Dim q As Range
For Each c In Intersect(ActiveSheet.UsedRange, [b:b])
  If q.Value = vbEmpty Then q.EntireRow.Delete
Next
End Sub

но он удаляет если ячейка пустая.

SoftIce · 30.06.2017, 05:21

Сообщение от lapin9126

Each c

Сообщение от lapin9126

If q.Value

Опечатка?

@lapin9126 · 30.06.2017, 05:21 **[ТС]**

Да, просмотрел. Везде q.

SoftIce · 30.06.2017, 05:34

Visual Basic

Sub Row_Cleaner()
    For i = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1
       If Trim$(Cells(i, 2).Value) = "" Then Rows(i).Delete Shift:=xlUp
    Next i
End Sub

@lapin9126 · 30.06.2017, 05:42 **[ТС]**

Спасибо, всё работает как надо.

SoftIce es geht mir gut 11222 / 4699 / 1178 Регистрация: 27.07.2011 Сообщений: 11,426
	30.06.2017, 05:21	2
	Сообщение от lapin9126 Each c Сообщение от lapin9126 If q.Value Опечатка? 0

@lapin9126 2 / 2 / 0 Регистрация: 19.10.2015 Сообщений: 158
	30.06.2017, 05:21 [ТС]	3
	Да, просмотрел. Везде q. 0

@lapin9126 2 / 2 / 0 Регистрация: 19.10.2015 Сообщений: 158
	30.06.2017, 05:42 [ТС]	5
	Спасибо, всё работает как надо. 0

Опции темы

(VBA Excel) Удалить стоку в ячейке которой нет текста

Решение