Как извлечь текст из ячейки в Excel на основе цвета шрифта?
В Excel вы можете время от времени сталкиваться с наборами данных, где ячейки содержат текст разного цвета — например, отдельные символы или слова выделены красным для акцентирования внимания или категоризации. Например, в одной ячейке может отображаться комбинация обычного и красного текста для обозначения важных элементов. Извлечение только текста определённого Цвет шрифта (например, красного) может быть чрезвычайно полезным для Анализ данных, составления отчётов или дальнейшей обработки — особенно если вам нужно выделить ключевые пометки или аннотации, сделанные с помощью Цвет шрифта.
Эту задачу невозможно решить напрямую с помощью встроенных функций Excel, поскольку стандартные формулы не распознают и не реагируют на цвет шрифта. Если у вас есть список данных, подобный приведённому на скриншоте ниже, и вы хотите извлечь только красный текст из каждой ячейки, естественно возникает вопрос: какие практические методы позволяют эффективно справиться с этой задачей? В следующем разделе подробно описано, как извлекать текст на основе цвета шрифта в Excel — это значительно упрощает управление, фильтрацию и дальнейшее использование таких данных.
Извлечь текст на основе Цвет шрифта из каждой ячейки
Извлечь текст на основе Цвет шрифта из каждой ячейки
По умолчанию Excel не предлагает встроенной функции для извлечения текста на основе цвета шрифта внутри ячейки. Поэтому для решения этой задачи требуется пользовательский код VBA — то есть создание собственной пользовательской функции. Такой подход идеально подходит тем, кто уже знаком с VBA и нуждается в программном извлечении цветного текста из множества или сложных ячеек. Главное преимущество метода — гибкость: вы можете указать любой целевой цвет. Однако у него есть и ограничение — результат не обновляется автоматически при изменении цветового форматирования, пока вы вручную не запустите пересчёт или повторно не примените функцию.
Выполните следующие шаги, чтобы создать и использовать функцию для извлечения цветного текста:
1. Нажмите одновременно клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений (VBA). Если вы ещё не включили вкладку Разработчик, просто щёлкните правой кнопкой мыши по любой вкладке на Ленте, выберите Настроить ленту и добавьте вкладку Разработчик — так вы получите удобный доступ к ней в будущем.
2. В окне VBA выберите Вставка > Модуль. Это создаст новый модуль, в который можно вставить приведённый ниже код VBA.
VBA: Извлечь текст на основе Цвет шрифта
Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
If pRange.Characters(i, 1).Font.Color = TextColor Then
xOut = xOut & VBA.Mid(xValue, i, 1)
End If
Next
GetColorText = xOut
End Function
3. После вставки кода сохраните изменения и закройте редактор VBA. Вернитесь к листу Excel, выберите пустую ячейку рядом со списком данных и введите следующую формулу:
=GetColorText(A1)
Замените A1 на конкретную ссылку на ячейку, из которой вы хотите извлечь текст. Нажмите Enter, чтобы выполнить функцию и извлечь только текст указанного цвета шрифта (по умолчанию — красного) из выбранной ячейки. Чтобы применить это извлечение к другим ячейкам списка, протяните маркер заполнения (в правом нижнем углу выделенной ячейки) вниз или по нужному диапазону.
Теперь все фрагменты красного текста из каждой ячейки будут автоматически извлечены и отображены в соответствующей ячейке с формулой, что обеспечивает удобное выделение цветного текста для последующего анализа или представления.
Совет: В предоставленном коде VBA строка TextColor = RGB(255,0,0)задаёт целевой цвет (в данном случае — красный). Если вам нужно извлечь текст другого цвета, измените значение RGB на соответствующее желаемому цвету шрифта (например, для синего используйте)TextColor = RGB(0,0,255)).
Важно отметить, что этот метод извлечёт текст только из ячейки, где цвет текста точно соответствует указанному цвету шрифта. Если оттенок близок, но значения RGB не совпадают, такой текст может не распознаться. В случае неожиданных результатов извлечения дважды проверьте цвет шрифта на вашем листе.
Если формула не возвращает текст, убедитесь, что макросы включены в вашей среде Excel, и проверьте, действительно ли цвет шрифта совпадает со значениями RGB, заданными в коде. Помните: пользовательские функции такого типа доступны только в той книге, куда вы добавили код, если вы не сохраните её как надстройку или не добавите код повторно в другие книги.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Связанные статьи:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек