Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как извлечь заглавные буквы или слова, начинающиеся с заглавной буквы из текстовых строк?

Если у вас есть список текстовых строк, теперь вы хотите извлечь все заглавные буквы или слова, начинающиеся с заглавной буквы из ячеек. Как вы могли его решить в Excel?

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

Извлечение слов, начинающихся с заглавной буквы из текстовых строк с помощью пользовательской функции


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


Следующий код VBA может помочь вам извлечь только заглавные буквы из ячеек, пожалуйста, сделайте так:

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

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

Код VBA: извлекать только заглавные буквы из текстовых строк:

Функция ExtractCap (Txt As String) As String 'Updateby Extendoffice Application.Volatile Dim xRegEx as Object Set xRegEx = CreateObject ("VBSCRIPT.REGEXP") xRegEx.Pattern = "[^ AZ]" xRegEx.Global = True ExtractCap = xRegEx.Replace (Txt, "") Установите xRegEx = Nothing End Function

3, Затем сохраните код и закройте этот код, вернитесь на рабочий лист, введите следующую формулу: = EXTRACTCAP (A2) в пустую ячейку, где вы хотите вывести результат, а затем перетащите дескриптор заполнения в ячейки, которые вы хотите применить к этой формуле, и все заглавные буквы были извлечены сразу, см. снимок экрана:


Извлечение слов, начинающихся с заглавной буквы из текстовых строк с помощью пользовательской функции

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

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

2. Щелчок Вставить > модуль, затем скопируйте и вставьте следующий код в модуль Окно.

Код VBA: Извлечь слова, начинающиеся с заглавной буквы:

Функция StrExtract (Str As String) As String 'Updateby Extendoffice Application.Volatile Dim xStrList As Variant Dim xRet As String Dim I As Long Если Len (Str) = 0, то Exit Function xStrList = Split (Str, "") Если UBound (xStrList )> = 0 Тогда для I = 0 для UBound (xStrList) Если xStrList (I) = StrConv (xStrList (I), vbProperCase) Затем xRet = xRet & xStrList (I) & "" End If Next StrExtract = Left (xRet, Len (xRet) - 1) End If End Function

3, Затем сохраните код и закройте окно кода, введите следующую формулу: = StrExtract (A2) в пустую ячейку рядом с вашими данными, затем перетащите дескриптор заполнения в ячейки, которые вы хотите получить, и все слова, начинающиеся с большой буквы, извлечены, см. снимок экрана:


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

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

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sonia · 7 months ago
    hi,

    thanks for this formula, however my =EXTRACTCAP(A2) keeps coming back with an error.

    can you help?