Удаление строк по цвету |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
Как можно удалить целые строки в зависимости от цвета фона? В этом примере мне нужно удалить все строки, ячейки которых заполнены синим цветом фона, как показано на следующем снимке экрана. В этой статье вы получите несколько кодов для выполнения этой задачи в Excel.
Удалить строки с определенным цветом фона на основе каждой ячейки
Удалить строки с определенным цветом фона на основе одного столбца
Удалить строки с определенным цветом фона на основе каждой ячейки
Если у вас есть диапазон данных, которые случайным образом заполнены некоторыми цветами ячеек, и вам нужно удалить строки, цвет ячейки которых синий, как показано на следующем снимке экрана:
Чтобы удалить этот тип строк, вы можете использовать следующий код 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 нажмите клавишу для запуска этого кода, и появится диалоговое окно, напоминающее вам о выборе ячейки с цветом заливки, который вы хотите удалить, см. снимок экрана:
4. Затем нажмите OK, и все строки были удалены, если ячейка с определенным цветом заливки.
Удалить строки с определенным цветом фона на основе одного столбца
Если вы хотите удалить строки с определенным цветом на основе только одного столбца, например, удалите строки с синим цветом в столбце A и получите снимок экрана ниже, вот также код VBA может оказать вам услугу.
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-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
В таблице имеется n-е кол-во строк жёлтого цвета. Каким образом их можно удалить со смешением вверх |
|
Юрий М Модератор Сообщений: 60581 Контакты см. в профиле |
Если заливка условным форматированием, то задача усложняется. Если нет — обычный макрос с этим справится. |
Юрий М нигде не помечал, что тема закрытая, заливка без условного форматирования. |
|
И где (как?) указать цвет? |
|
{quote}{login=Юрий М}{date=25.02.2010 11:13}{thema=}{post}Если заливка условным форматированием, то задача усложняется. Если нет — обычный макрос с этим справится.{/post}{/quote}А почему с УФ задача усложниться? Разве нальзя искать (и удалить) строки по условию формата? |
|
А можно увидеть пример кода на VBA, где задаётся условие удаления — цвет, пожалуйста. |
|
Юрий М Модератор Сообщений: 60581 Контакты см. в профиле |
С пометкой я ошибся — не туда глянул Извиняюсь. |
Ученик Гость |
#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: перестаньте получать сообщения об ошибках и замедлите работу вашей системы с помощью нашего инструмента оптимизации. Получить сейчас в эту ссылку
- Скачайте и установите инструмент для ремонта здесь.
- Пусть он просканирует ваш компьютер.
- Затем инструмент почини свой компьютер.
Пустые строки не плохие, но в большинстве листов они определенно нежелательны. Excel использует пробелы для определения диапазонов данных, а пустая строка в неправильном месте мешает многим интегрированным функциям. К счастью, есть простой способ удалить пустые строки из области данных, но этот простой метод может уничтожить данные, поэтому вы должны быть осторожны.
Как удалить несколько строк в Excel?
Удаление строк или столбцов из контекстного меню
- Сначала выберите строку строк или столбцов и щелкните правой кнопкой мыши.
- Затем выберите «Удалить строки» или «Удалить столбцы» соответственно.
- Вы также можете выбрать строки или столбцы и нажать на макет.
- Затем выберите «Удалить» и выберите «Удалить столбцы» или «Удалить строки».
Удалить строки в Excel по цвету ячейки
Обновление за март 2023 года:
Теперь вы можете предотвратить проблемы с ПК с помощью этого инструмента, например, защитить вас от потери файлов и вредоносных программ. Кроме того, это отличный способ оптимизировать ваш компьютер для достижения максимальной производительности. Программа с легкостью исправляет типичные ошибки, которые могут возникнуть в системах Windows — нет необходимости часами искать и устранять неполадки, если у вас под рукой есть идеальное решение:
- Шаг 1: Скачать PC Repair & Optimizer Tool (Windows 10, 8, 7, XP, Vista — Microsoft Gold Certified).
- Шаг 2: Нажмите «Начать сканирование”, Чтобы найти проблемы реестра Windows, которые могут вызывать проблемы с ПК.
- Шаг 3: Нажмите «Починить все», Чтобы исправить все проблемы.
Опция фильтра позволяет сортировать данные по цвету ячейки. Это позволяет удалить все строки, которые содержат определенный цвет фона.
- Примените фильтры к вашему столу. В Excel перейдите на вкладку «Данные» и щелкните значок «Фильтр».
- Нажмите на маленькую стрелку рядом с именем нужного столбца, перейдите в Фильтр по цвету и выберите правильный цвет ячейки. Нажмите кнопку ОК, и вы увидите все выбранные ячейки в верхней части.
- Выберите отфильтрованные цветные ячейки, щелкните их правой кнопкой мыши и выберите «Удалить линию» из меню.
- Вот и все! Строки с ячейками одного цвета удаляются мгновенно.
Удалите несколько строк, выбрав целые строки.
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
Совет экспертов: Этот инструмент восстановления сканирует репозитории и заменяет поврежденные или отсутствующие файлы, если ни один из этих методов не сработал. Это хорошо работает в большинстве случаев, когда проблема связана с повреждением системы. Этот инструмент также оптимизирует вашу систему, чтобы максимизировать производительность. Его можно скачать по Щелчок Здесь
CCNA, веб-разработчик, ПК для устранения неполадок
Я компьютерный энтузиаст и практикующий ИТ-специалист. У меня за плечами многолетний опыт работы в области компьютерного программирования, устранения неисправностей и ремонта оборудования. Я специализируюсь на веб-разработке и дизайне баз данных. У меня также есть сертификат CCNA для проектирования сетей и устранения неполадок.
Сообщение Просмотров: 334