Как извлечь Nth слово из текста строки Использование VBA в Microsoft Excel
В этой статье вы узнаете, как извлечь n-е слово из текстовой строки. Мы будем использовать код VBA для создания UDF, чтобы найти n-е слово в строке.
Нам нужно выполнить следующие шаги:
Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic
-
Нажмите «Вставить», а затем «Модуль»
-
Это создаст новый модуль.
Введите следующий код в модуль
Функция ExtractNthWord (x как строка, y как целое число)
Тусклое слово () как строка
Dim wordCount As Long
word = VBA.Split (x, «»)
wordCount = UBound (слово)
Если wordCount <1 Или (y — 1)> wordCount Или y <0 Тогда
ExtractNthWord = «»
Остальное
ExtractNthWord = word (y — 1)
Конец Если
Конечная функция
Новая формула UDF создается с именем ExtractNthWord. Есть два параметра; первая — это ячейка поиска, из которой необходимо извлечь данные, а вторая — это n-е число.
Ниже приведен снимок данных:
-
Чтобы получить 2 ^ nd ^ слово из столбца A, формула будет
= ExtractNthWord (A2,2)
-
Аналогично, чтобы извлечь 3 ^ rd ^ word, формула будет
= ExtractNthWord (A2,3)
-
Мы можем использовать вспомогательную ячейку для хранения значения второго аргумента; это позволит нам быстрее увидеть результаты.
-
Здесь вспомогательной ячейкой является D1, в которую мы можем ввести n-е число слова, которое мы хотим видеть в качестве вывода.
Теперь нам нужно только изменить число в ячейке D1, и результаты будут автоматически изменены соответственно.