Як витягти текст на основі кольору шрифту з комірки в Excel?

Якщо у вас є список даних із червоним текстом у кожній комірці Excel, як показано на знімку екрана, і чи знаєте ви, як витягти лише червоний текст? Зараз я представив швидкий спосіб вирішити головоломку, яка витягує текст на основі кольору шрифту з комірки в Excel.

Витягніть текст на основі кольору шрифту з кожної комірки

Витягніть текст на основі кольору шрифту з кожної комірки

Дивовижний! Використання ефективних вкладок в Excel, як Chrome, Firefox та Safari!

Заощаджуйте 50% свого часу та зменшуйте тисячі клацань миші щодня!

---

В Excel ви можете використовувати лише визначену функцію для вилучення тексту на основі кольору шрифту.

1. прес Alt + F11 клавіші разом, щоб відкрити вікно Microsoft Visual Basic for Applications.

2. клацання Insert > Модулі і скопіюйте наступний код 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. Потім збережіть і закрийте діалогове вікно та виберіть пусту комірку поруч зі списком даних, введіть цю формулу = GetColorText (A1) (А1 позначає клітинку, з якої потрібно витягти текст), натисніть вводити , щоб отримати потрібний текст, а потім перетягніть маркер автозаповнення, щоб заповнити формулу до потрібного діапазону.

Тепер ви можете бачити, як витягується весь червоний текст.

Чайові: У наведеному вище коді VBA ви можете змінити колір rgb у цьому скрипті TextColor = RGB(255, 0, 0) на інші, щоб задовольнити ваші потреби.

Відносні статті:

• Витягувати жирний текст лише в Excel

• Витяг десяткових значень у Excel

• Витягніть по батькові в Excel

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...