Как в excel удалить строки одного цвета

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

Nicko

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

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

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

Сообщений: 63


Репутация:

0

±

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


Excel для Mac

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

 

Ответить

Pelena

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

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

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

Сообщений: 18797


Репутация:

4284

±

Замечаний:
±


Excel 2016 & 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]
Для кнопки в свойствах поставьте галку «Не перемещать и не изменять размеры»

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

 

Ответить

Nicko

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

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

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

Сообщений: 63


Репутация:

0

±

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


Excel для Mac

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

 

Ответить

Как можно удалить целые строки в зависимости от цвета фона? В этом примере мне нужно удалить все строки, ячейки которых заполнены синим цветом фона, как показано на следующем снимке экрана. В этой статье вы получите несколько кодов для выполнения этой задачи в Excel.

документ удалить строки по цвету 1

Удалить строки с определенным цветом фона на основе каждой ячейки

Удалить строки с определенным цветом фона на основе одного столбца


стрелка синий правый пузырь Удалить строки с определенным цветом фона на основе каждой ячейки

Если у вас есть диапазон данных, которые случайным образом заполнены некоторыми цветами ячеек, и вам нужно удалить строки, цвет ячейки которых синий, как показано на следующем снимке экрана:

документ удалить строки по цвету 2

Чтобы удалить этот тип строк, вы можете использовать следующий код VBA, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: удалить строки, ячейки которых содержат определенный цвет заливки:

Sub DeleteRows()
'Updateby Extendoffice
    Dim rngCl As Range
    Dim xRows As Long
    Dim xCol As Long
    Dim colorLg As Long
    On Error Resume Next
    Set rngCl = Application.InputBox _
        (Prompt:="Select a cell with the background color to be deleted", _
        Title:="Kutools for Excel", Type:=8)
    On Error GoTo 0
    If rngCl Is Nothing Then
        MsgBox "User cancelled operation." & vbCrLf & _
        "Processing terminated", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    colorLg = rngCl.Interior.Color
    Application.ScreenUpdating = False
    With ActiveSheet.UsedRange
        For xRows = .Rows.Count To 1 Step -1
            For xCol = 1 To .Columns.Count
                           If .Cells(xRows, xCol).Interior.Color = colorLg Then
                    .Rows(xRows).Delete
                    Exit For
                End If
            Next xCol
        Next xRows
    End With
    Application.ScreenUpdating = True
End Sub

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно, напоминающее вам о выборе ячейки с цветом заливки, который вы хотите удалить, см. снимок экрана:

документ удалить строки по цвету 3

4. Затем нажмите OK, и все строки были удалены, если ячейка с определенным цветом заливки.


стрелка синий правый пузырь Удалить строки с определенным цветом фона на основе одного столбца

Если вы хотите удалить строки с определенным цветом на основе только одного столбца, например, удалите строки с синим цветом в столбце A и получите снимок экрана ниже, вот также код VBA может оказать вам услугу.

документ удалить строки по цвету 4

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: удаление строк на основе столбца, ячейки которого имеют определенный цвет заливки:

Sub deleterow()
'UpdateBY Extendoffice
   Dim xRg As Range, rgDel As Range
    For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
        If xRg.Interior.ColorIndex = 20 Then
            If rgDel Is Nothing Then
                Set rgDel = xRg
            Else
                Set rgDel = Union(rgDel, xRg)
            End If
        End If
    Next xRg
    If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub

Внимание: В приведенном выше коде A2: A21 — это столбец, содержащий определенный цвет заливки, на основе которого вы хотите удалить строки, число 20 in Индекс цвета = 20 script — это индекс цвета, на основе которого вы хотите удалить строки. Вы можете изменить их по своему усмотрению.

3, Затем нажмите F5 ключ для запуска этого кода, и все строки, ячейки которых содержат синий цвет в столбце A, были удалены сразу.


Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

 

В таблице имеется n-е кол-во строк жёлтого цвета. Каким образом их можно удалить со смешением вверх

 

Юрий М

Модератор

Сообщений: 60581
Регистрация: 14.09.2012

Контакты см. в профиле

Если заливка условным форматированием, то задача усложняется. Если нет — обычный макрос с этим справится.

 

Юрий М нигде не помечал, что тема закрытая, заливка без условного форматирования.

 

И где (как?) указать цвет?

 

{quote}{login=Юрий М}{date=25.02.2010 11:13}{thema=}{post}Если заливка условным форматированием, то задача усложняется. Если нет — обычный макрос с этим справится.{/post}{/quote}А почему с УФ задача усложниться? Разве нальзя искать (и удалить) строки по условию формата?

 

А можно увидеть пример кода на VBA, где задаётся условие удаления — цвет, пожалуйста.

 

Юрий М

Модератор

Сообщений: 60581
Регистрация: 14.09.2012

Контакты см. в профиле

С пометкой я ошибся — не туда глянул Извиняюсь.  
По вопросу: вот такой макрос удалит все строки в диапазоне строк 2:29, цвет заливки ячеек столбца А которых, соттветствует цвету заливки ячейки А1.  
Sub ColorRowsDelete()  
   For i = 29 To 2 Step -1  
       If Cells(i, 1).Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex Then  
           Rows(i).Delete  
       End If  
   Next  
End Sub  
Для Михаила. Я испытывал опрепделённые трудности, когд отслеживал заливку, выполненную при помощи УФ.

 

Ученик

Гость

#8

25.02.2010 23:28:51

Спасибо, Юрий М., вы наверное устаёте помогать такому количеству людей, но делаете благородное дело.

У меня есть строки — выходные и праздники, они покрашены серым (не условное_форматирование) хорошо бы их с помощью макроса удалять, так как подгрузку данных мне не удаётся настроить, а каждый раз за 5+ лет удалять строки я запарюсь (уже).

Спасибо!


если у вас 2007 эксель, то там есть фильтр по цвету, поставить его и выделенные строки удалить
если 2003, то нужно вставить такой макрос
Sub delete_rows()
r = 1
While r <= ActiveSheet.UsedRange.Rows.Count
    If Cells(r, 1).Interior.ColorIndex <> xlNone Then
    Rows(r).Delete shift:=xlUp
    r = r — 1
    End If
r = r + 1
Wend
End Sub

Не торопись, и все успеешь намного быстрее


А теперь задача немного изменилась — есть лист 1 с датами и есть лист 2 с датами, необоходимо удалить строки в обоих листах с единожды повторяющимеся значениями. таким образом остануться даты которые встречаются на обоих листах.


думаю, так это можно сделать, хотя можно и формулами если(еошибка(поискпоз());0;1), поставить фильтр с 0, и удалить эти строки.

Не торопись, и все успеешь намного быстрее


Обновлено March 2023: перестаньте получать сообщения об ошибках и замедлите работу вашей системы с помощью нашего инструмента оптимизации. Получить сейчас в эту ссылку

  1. Скачайте и установите инструмент для ремонта здесь.
  2. Пусть он просканирует ваш компьютер.
  3. Затем инструмент почини свой компьютер.

Пустые строки не плохие, но в большинстве листов они определенно нежелательны. Excel использует пробелы для определения диапазонов данных, а пустая строка в неправильном месте мешает многим интегрированным функциям. К счастью, есть простой способ удалить пустые строки из области данных, но этот простой метод может уничтожить данные, поэтому вы должны быть осторожны.

Как удалить несколько строк в Excel?

Удаление строк или столбцов из контекстного меню

  1. Сначала выберите строку строк или столбцов и щелкните правой кнопкой мыши.
  2. Затем выберите «Удалить строки» или «Удалить столбцы» соответственно.
  3. Вы также можете выбрать строки или столбцы и нажать на макет.
  4. Затем выберите «Удалить» и выберите «Удалить столбцы» или «Удалить строки».

Удалить строки в Excel по цвету ячейки

Обновление за март 2023 года:

Теперь вы можете предотвратить проблемы с ПК с помощью этого инструмента, например, защитить вас от потери файлов и вредоносных программ. Кроме того, это отличный способ оптимизировать ваш компьютер для достижения максимальной производительности. Программа с легкостью исправляет типичные ошибки, которые могут возникнуть в системах Windows — нет необходимости часами искать и устранять неполадки, если у вас под рукой есть идеальное решение:

  • Шаг 1: Скачать PC Repair & Optimizer Tool (Windows 10, 8, 7, XP, Vista — Microsoft Gold Certified).
  • Шаг 2: Нажмите «Начать сканирование”, Чтобы найти проблемы реестра Windows, которые могут вызывать проблемы с ПК.
  • Шаг 3: Нажмите «Починить все», Чтобы исправить все проблемы.

скачать

Опция фильтра позволяет сортировать данные по цвету ячейки. Это позволяет удалить все строки, которые содержат определенный цвет фона.

  1. Примените фильтры к вашему столу. В Excel перейдите на вкладку «Данные» и щелкните значок «Фильтр».
  2. Нажмите на маленькую стрелку рядом с именем нужного столбца, перейдите в Фильтр по цвету и выберите правильный цвет ячейки. Нажмите кнопку ОК, и вы увидите все выбранные ячейки в верхней части.
  3. Выберите отфильтрованные цветные ячейки, щелкните их правой кнопкой мыши и выберите «Удалить линию» из меню.
  4. Вот и все! Строки с ячейками одного цвета удаляются мгновенно.

Удалите несколько строк, выбрав целые строки.

1. Выберите количество строк, которые вы хотите удалить.
Примечание. В этом примере мы удаляем три строки (строки 2, 3 и 4). Чтобы выделить целые строки, нажмите и перетащите номер первой строки вниз, пока не достигнете количества строк, которое вы хотите удалить, или выберите первую ячейку строки, удерживайте клавиши Ctrl и Shift и нажмите правую кнопку мыши, затем отпустите нажмите клавишу Ctrl (нажмите клавишу Shift) и, удерживая нажатой клавишу Shift, выберите количество строк, которые вы хотите удалить.

2. Щелкните правой кнопкой мыши в любом месте выбранной строки и нажмите «Удалить».

Удаление нескольких строк с помощью опции ленты

1. Выберите ячейки, из которых вы хотите удалить строки.
Примечание. В этом примере мы удаляем три строки (строки 2, 3 и 4). Вы можете выбрать несколько ячеек в отдельных строках и столбцах (например, B4, E7, G9), удалив строки 4, 7 и 9.

2. выберите вкладку Главная.

3. в группе Клетки нажмите Удалить.

4. нажмите Удалить строку с листа.

Заключение

Excel — это идеальный инструмент для хранения данных, которые время от времени меняются. Однако обновление таблицы после нескольких изменений может занять много времени. Задача может быть такой же простой, как удаление всех пустых строк в Excel. Или вам может понадобиться найти и удалить дубликаты данных. Одна вещь, в которой мы уверены, это то, что каждый раз, когда детали приходят или уходят, вы ищете лучшее решение, чтобы сэкономить время на незавершенной работе.

https://support.office.com/en-us/article/insert-or-delete-cells-rows-and-columns-6f40e6e4-85af-45e0-b39d-65dd504a3246

Совет экспертов: Этот инструмент восстановления сканирует репозитории и заменяет поврежденные или отсутствующие файлы, если ни один из этих методов не сработал. Это хорошо работает в большинстве случаев, когда проблема связана с повреждением системы. Этот инструмент также оптимизирует вашу систему, чтобы максимизировать производительность. Его можно скачать по Щелчок Здесь

ed_moyes

CCNA, веб-разработчик, ПК для устранения неполадок

Я компьютерный энтузиаст и практикующий ИТ-специалист. У меня за плечами многолетний опыт работы в области компьютерного программирования, устранения неисправностей и ремонта оборудования. Я специализируюсь на веб-разработке и дизайне баз данных. У меня также есть сертификат CCNA для проектирования сетей и устранения неполадок.

Сообщение Просмотров: 334

Понравилась статья? Поделить с друзьями:
  • Как в excel удалить строки комбинацией клавиш
  • Как в excel удалить строки в которых содержится
  • Как в excel удалить строки в которых нет значений
  • Как в excel удалить ссылку на формулу
  • Как в excel удалить ссылку на другой файл