Як витягти з текстових рядків великі літери або слова, що починаються з великої літери?
Якщо у вас є список текстових рядків, зараз ви хочете витягти з комірок лише всі великі літери або слова, що починаються з великої літери. Як ви могли це вирішити в 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) у порожню комірку поруч із вашими даними, а потім перетягніть маркер заповнення до комірок, які ви хочете отримати, і всі слова, що починаються з великої літери, витягуються, див.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!








