Note: The other languages of the website are Google-translated. Back to English

 Як витягти з текстових рядків великі літери або слова, що починаються з великої літери?

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

Витягуйте великі літери з текстових рядків за допомогою користувацької функції

Витягуйте слова, що починаються з великої літери, з текстових рядків за допомогою визначеної користувачем функції


Витягуйте великі літери з текстових рядків за допомогою користувацької функції

Наступний код VBA може допомогти вам витягти лише великі літери з комірок, будь ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Натисніть Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Витягніть із текстових рядків лише великі літери:

Функція ExtractCap (Txt As String) як рядок 'Updateby Extendoffice
    Application.Volatile Dim xRegEx як набір об'єктів xRegEx = CreateObject ("VBSCRIPT.REGEXP") xRegEx.Pattern = "[^ AZ]" xRegEx.Global = True ExtractCap = xRegEx.Replace (Txt, "") Набір xRegEx = Нічого не закінчується

3. Потім збережіть код і закрийте цей код, поверніться до робочого аркуша, введіть таку формулу: = EXTRACTCAP (A2) у порожню комірку, де ви хочете вивести результат, а потім перетягніть маркер заповнення вниз до комірок, до яких ви хочете застосувати цю формулу, і всі великі літери були витягнуті відразу, див. знімок екрана:


Витягуйте слова, що починаються з великої літери, з текстових рядків за допомогою визначеної користувачем функції

Якщо вам потрібно витягти слова, які починаються з великої літери, з текстових рядків, вам може допомогти такий код VBA.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модулі, потім скопіюйте та вставте наступний код у Модулі Вікно

Код VBA: Вилучення слів, що починаються з великої літери:

Функція StrExtract (Str As String) As String 'Updateby Extendoffice
    Application.Volatile Dim xStrList As Variant Dim xRet As String Dim I As Long If Len (Str) = 0 Потім вийдіть з функції xStrList = Split (Str, "") If UBound (xStrList)> = 0 Тоді для I = 0 To 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-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

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

дякую за цю формулу, проте мій =EXTRACTCAP(A2) постійно повертається з помилкою.

Ви можете допомогти?
Цей коментар був мінімізований модератором на сайті
Привіт, Соня,
Наведена вище функція, визначена користувачем, добре працює в моїй книзі Excel, яку версію Excel ви використовуєте?
Або ви скопіювали та вставили наведений вище код у свій модуль VBA?
Цей коментар був мінімізований модератором на сайті
У вас так і написано "в наступному коді в модулі".
У мене теж помилка
Цей коментар був мінімізований модератором на сайті
у вас сторінка була відкрита російською мовою? Видалити /ru із ссилки: https://www.extendoffice.com/documents/excel/4554-excel-extract-capital-letters.html#a1
Цей коментар був мінімізований модератором на сайті
привіт,

Як я можу призначити цю функцію лише одному конкретному аркушу?
Цей коментар був мінімізований модератором на сайті
Nvm - більше не потрібен
Цей коментар був мінімізований модератором на сайті
jestem Excelowym laikiem, ale próbowałam postępować zgodnie z wytycznymi... oworzyłam alt+F11, insert->module i wstawiłam skopiowaną formułę. Przy próbie zapisu wywala mi błąd, coś o makrach... help!
Цей коментар був мінімізований модератором на сайті
Привіт, Ханя

Не могли б ви детальніше описати свою проблему? Будь ласка, вставте сюди свою проблему як знімок екрана, якщо ви не заперечуєте.
Дякую!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL