Удаление строк по цвету

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление строк по цвету (Формулы/Formulas)

Nicko

Дата: Среда, 18.03.2015, 12:34 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 0 ±

Замечаний: 60% ±

Excel для Mac

Как удалить все строки, если они отмечены цветом? Или же как удалить те строки, в которых в определенном столбце пустое значение?

Ответить

Pelena

Дата: Среда, 18.03.2015, 12:36 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19401

Репутация: 4549 ±

Замечаний: ±

Excel 365 & Mac Excel

Фильтр по цвету -- выделить строки -- удалить
Более конкретный ответ при наличии файла с примером в соответствии с Правилами форума

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Nicko

Дата: Среда, 18.03.2015, 12:41 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 0 ±

Замечаний: 60% ±

Excel для Mac

Необходимо удалить все красные строки, но так что бы не разошлись значения столбцов AA и AC

К сообщению приложен файл: 5269907.xlsm (34.6 Kb)

Ответить

Yurbas

Дата: Среда, 18.03.2015, 12:52 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 44

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, Excel 2013

Оно?
Если оно, то выделите столбец цветной -> Фильтр -> Выделить по цвету заливки и удаляйте строки розовые.
[p.s.]Кнопку при этом куда-нибудь переместите, а то она у вас исчезнет.

К сообщению приложен файл: 0061475.xlsm (15.0 Kb)

Где начало того конца, которым кончается начало?

Сообщение отредактировал Yurbas - Среда, 18.03.2015, 12:54

Ответить

Michael_S

Дата: Среда, 18.03.2015, 13:03 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

[vba]

Код

Sub RowsDelete()
Dim i
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "AC").End(xlUp).Row To 1 Step -1
      If Cells(i, "AA") = "" Then
      Rows(i).Delete
      End If
Next
Application.ScreenUpdating = True
End Sub

[/vba]
Для кнопки в свойствах поставьте галку "Не перемещать и не изменять размеры"

К сообщению приложен файл: 5269907-Nicko.xlsm (19.8 Kb)

Сообщение отредактировал Michael_S - Среда, 18.03.2015, 13:06

Ответить

Nicko

Дата: Среда, 18.03.2015, 13:20 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 0 ±

Замечаний: 60% ±

Excel для Mac

Спасибо! Оба варианта рабочие

Ответить

Удаление строк по цвету (Формулы/Formulas)

Страница 1 из 1
1