Поиск слов в тексте по количеству символов и вывод значения в отдельную ячейку

@vaso666 · Регистрация: 09.06.2015

Author24 — интернет-сервис помощи студентам

Добрый день! Задача состоит в следующем, в ячейках есть текст в котором есть слова состоящие из букв и цифр (VIN коды автомобилей). Все VINы состоят из 17 символов. Как вычленить из текста эти VIN и перенести их в отдельные ячейки?

Пример текста из одной ячейки: 1.Вантажний автомобіль, марки "Nissan Interstar"-б/у, ідентифікаційний № - VN2F3BU96UB010680, 2463 cм3,рік випуску -2006.

Жду помощи!

Fairuza · 09.06.2015, 18:27

Вариант для конкретного примера

Код

=ПСТР(A1;НАЙТИ("№ - ";A1;1)+4;17)

@vaso666 · 09.06.2015, 18:42 **[ТС]**

Спасибо за подсказку, но дело в том что перед VINами в разных ячейках разные символы, в этом примере идёт "№ - ", в некоторых просто пробел и т.д. а у меня 65 тыс позиций)
Может у вас есть вариант по поиску слов в тексте по определённому количеству символов? Я так понимаю не много слов состоит из 17 символов.

Fairuza · 09.06.2015, 18:48

vaso666, лучше бы пример приложить с возможными написаниями

Добавлено через 4 минуты
И как вариант, если пробел затем V

Код

=ПСТР(A1;НАЙТИ(" V";A1;1)+1;17)

@vaso666 · 09.06.2015, 19:16 **[ТС]**

Вот примеры:
1.Напівпричіп - самоскид,марки "CMT W 25 50"б/в,календарний рік виготовлення-2004, номер кузова SW922560A41CH3343.
1. Причіп ізотермічний з встановленим холодильним обладнанням, двохвісний, марки "BURG", модель "BPM 00-18 TCSXX", ідентифікаційний номер (номер шасі) - XL22M001850392120, вантожопідйомність - 10,380 т, маса в разі максимального завантаження - 18,0
1. Сідельний тягач б/в, призначений для перевезення напівпричепів по дорогах загального користування, марка згідно з довідником - "DAF", модель згідно з довідником - "105.460", шасі № XL2TE474S0E877988, календарний рік виготовлення-2008,
1.Легковий автомобіль TOYOTA COROLLA, 2006 року випуску, бувший у використанні, № кузова SB1KC67E20F099087, тип двигуна-дизельний (1364см3).

Fairuza · 09.06.2015, 19:24

vaso666, пример лучше бы прикладывать в файле)
Расширенный режим - Управление вложениями

@vaso666 · 09.06.2015, 21:03 **[ТС]**

Вот пример из чего нужно вытянуть VIN

@Vlad999 · 10.06.2015, 08:38

UDF подойдет? если случайно будет несколько слов размерностью 17 символов то выдаст все.

Visual Basic

Function VIN(ячейка As Range) As String
Dim s, r
s = Split(Replace(Replace(Replace(ячейка, ".", " "), ",", " "), "-", " "))
For Each r In s
  If Len(r) = 17 Then VIN = VIN & " " & r
Next
End Function

@vaso666 · 10.06.2015, 21:19 **[ТС]**

Не могу въехать как вставить код в макрос. Выдаёт ошибку.
Мне просто скопировать этот код (без номеров строк) и вставить в новом модуле в VBA?
При создании нового модуля выдаёт такой начальный код:

Visual Basic

Sub VIN()
'
' VIN Макрос
'
 
'
    Range("A1").Select
End Sub

Подскажите куда вставить разработанный Вами код?

Я вставил вот так:

Visual Basic

Sub VIN()
'
' VIN Макрос
'
Function VIN(ячейка As Range) As String
Dim s, r
s = Split(Replace(Replace(Replace(ячейка, ".", " "), ",", " "), "-", " "))
For Each r In s
  If Len(r) = 17 Then VIN = VIN & " " & r
Next
End Function

Но при запуске выдаёт ошибку "Ошибка запуска макроса из-за синтаксической ошибки"

@Vlad999 · 11.06.2015, 08:19

Сообщение от vaso666

Мне просто скопировать этот код (без номеров строк) и вставить в новом модуле в VBA?

да. ничего другого, кроме моего кода, в нем не должно быть.
потом в ячейке пишите =VIN(A1), где А1 ячейка с текстом из которого вытягиваете VIN.

@vaso666 · 11.06.2015, 20:40 **[ТС]**

Спасибо, всё получилось!!!

@vaso666 0 / 0 / 0 Регистрация: 09.06.2015 Сообщений: 6
		1
	Поиск слов в тексте по количеству символов и вывод значения в отдельную ячейку 09.06.2015, 17:50. Показов 5422. Ответов 10 Метки нет (Все метки) Добрый день! Задача состоит в следующем, в ячейках есть текст в котором есть слова состоящие из букв и цифр (VIN коды автомобилей). Все VINы состоят из 17 символов. Как вычленить из текста эти VIN и перенести их в отдельные ячейки? Пример текста из одной ячейки: 1.Вантажний автомобіль, марки "Nissan Interstar"-б/у, ідентифікаційний № - VN2F3BU96UB010680, 2463 cм3,рік випуску -2006. Жду помощи! 0

Fairuza 6014 / 3207 / 719 Регистрация: 23.11.2010 Сообщений: 10,721
	09.06.2015, 18:27	2
	Вариант для конкретного примера Код =ПСТР(A1;НАЙТИ("№ - ";A1;1)+4;17) 0

@vaso666 0 / 0 / 0 Регистрация: 09.06.2015 Сообщений: 6
	09.06.2015, 18:42 [ТС]	3
	Спасибо за подсказку, но дело в том что перед VINами в разных ячейках разные символы, в этом примере идёт "№ - ", в некоторых просто пробел и т.д. а у меня 65 тыс позиций) Может у вас есть вариант по поиску слов в тексте по определённому количеству символов? Я так понимаю не много слов состоит из 17 символов. 0

Fairuza 6014 / 3207 / 719 Регистрация: 23.11.2010 Сообщений: 10,721
	09.06.2015, 18:48	4
	vaso666, лучше бы пример приложить с возможными написаниями Добавлено через 4 минуты И как вариант, если пробел затем V Код =ПСТР(A1;НАЙТИ(" V";A1;1)+1;17) 0

@vaso666 0 / 0 / 0 Регистрация: 09.06.2015 Сообщений: 6
	09.06.2015, 19:16 [ТС]	5
	Вот примеры: 1.Напівпричіп - самоскид,марки "CMT W 25 50"б/в,календарний рік виготовлення-2004, номер кузова SW922560A41CH3343. 1. Причіп ізотермічний з встановленим холодильним обладнанням, двохвісний, марки "BURG", модель "BPM 00-18 TCSXX", ідентифікаційний номер (номер шасі) - XL22M001850392120, вантожопідйомність - 10,380 т, маса в разі максимального завантаження - 18,0 1. Сідельний тягач б/в, призначений для перевезення напівпричепів по дорогах загального користування, марка згідно з довідником - "DAF", модель згідно з довідником - "105.460", шасі № XL2TE474S0E877988, календарний рік виготовлення-2008, 1.Легковий автомобіль TOYOTA COROLLA, 2006 року випуску, бувший у використанні, № кузова SB1KC67E20F099087, тип двигуна-дизельний (1364см3). 0

Fairuza 6014 / 3207 / 719 Регистрация: 23.11.2010 Сообщений: 10,721
	09.06.2015, 19:24	6
	vaso666, пример лучше бы прикладывать в файле) Расширенный режим - Управление вложениями 0

@Vlad999 3911 / 2311 / 782 Регистрация: 02.11.2012 Сообщений: 6,147
	11.06.2015, 08:19	10
	Сообщение от vaso666 Мне просто скопировать этот код (без номеров строк) и вставить в новом модуле в VBA? да. ничего другого, кроме моего кода, в нем не должно быть. потом в ячейке пишите =VIN(A1), где А1 ячейка с текстом из которого вытягиваете VIN. 0

@vaso666 0 / 0 / 0 Регистрация: 09.06.2015 Сообщений: 6
	11.06.2015, 20:40 [ТС]	11
	Спасибо, всё получилось!!! 0

Поиск слов в тексте по количеству символов и вывод значения в отдельную ячейку

Решение