Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
2 / 2 / 0
Регистрация: 19.10.2015
Сообщений: 158
1

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

30.06.2017, 05:03. Просмотров 983. Ответов 4
Метки нет (Все метки)


Здравствуйте, как удалить всю строку если в ячейке столбца "B" нет текста, но в ячейке могут быть пробелы (количество может быть разное). Пробовал этот макрос:
Visual Basic
1
2
3
4
5
6
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
но он удаляет если ячейка пустая.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.06.2017, 05:03
Ответы с готовыми решениями:

Можно ли установить курсор в конце текста в ячейке excel vba?
Уважаемые форумчане! Нужен совет. Можно ли установить курсор в конец текста? К примеру, есть...

На основании текста сформировать матрицу, в которой в каждой ячейке будет по 2 символа из приведенного в файле текста
Доброго времени суток! Помогите пожалуйста решить задачу Дан текстовый файл в котором N строк...

Как автоматически найти стоку в таблице по значению в ячейке
Привет уважаемые знатоки Есть таблица в которой поиск строки происходит двумя способами 1)функцией...

Выделить первую строку текста в ячейке средствами VBA
Уважаемые форумчане! Подскажите пожалуйста, как с помощью VBA выделить (скопировать) первую...

4
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
2 / 2 / 0
Регистрация: 19.10.2015
Сообщений: 158
30.06.2017, 05:21  [ТС] 3
Да, просмотрел. Везде q.
0
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
30.06.2017, 05:34 4
Лучший ответ Сообщение было отмечено lapin9126 как решение

Решение

Visual Basic
1
2
3
4
5
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
1
2 / 2 / 0
Регистрация: 19.10.2015
Сообщений: 158
30.06.2017, 05:42  [ТС] 5
Спасибо, всё работает как надо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.06.2017, 05:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Перенос текста в ячейке EXCEL
Необходимо перенести текст в ячейке в определенном месте. (Аналог в екселе нажатие ALT + Enter). ...

Форматирование текста в ячейке Excel
Как отформатировать часть текста в ячейке? Например, чтобы первое слово было жирным шрифтом, а...

Удалить часть текста в ячейке
Доброго времени суток, такая проблема. Есть столбец в котором вписываются 2-а типа текста, в...

Из двумерного массива строк найти ту стоку в которой буква 's' встречается чаще
задача состоит в том чтобы из двумерного массива строк найти ту стоку в которой буква's'...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.