Добрый день,
Имею таблицу, в которой содержится название компании и объект-склад.
Выглядит таблица так:
Что требуется:
Частью кода процедуры является передача в переменную части текста из таблицы. А именно, всего, что содержится после закрывающих кавычек. Т.е. в случае с первым названием переменная должна получить (Склад-Лес) МОСКВА вместо ООО "Компания-Л" (Склад-Лес) МОСКВА
Ниже код мой. Хочу в переменную AddressName записать кусок текста, обрезая все до последних кавычек + пробел
Работает, но как-то неверно.
Помогите разобраться, где ошибка и как ее исправить.
Файл с примером прилагаю
Имею таблицу, в которой содержится название компании и объект-склад.
Выглядит таблица так:
Объекты |
- |
ООО "Компания-Л" (Склад-Лес) МОСКВА |
ООО "Компания и сыновья" (Склад-1-ый Терминал) Останкино |
ООО "Компания и сыновья" ТРЦ Авиапарк |
ООО "Компания и сыновья" ТЦ Какой-то еще |
Частью кода процедуры является передача в переменную части текста из таблицы. А именно, всего, что содержится после закрывающих кавычек. Т.е. в случае с первым названием переменная должна получить (Склад-Лес) МОСКВА вместо ООО "Компания-Л" (Склад-Лес) МОСКВА
Ниже код мой. Хочу в переменную AddressName записать кусок текста, обрезая все до последних кавычек + пробел
Работает, но как-то неверно.
Код |
---|
With Sheets("Адреса") jLastRow = ThisWorkbook.Sheets("Адреса").Cells(Rows.Count, 1).End(xlUp).Row For i = 3 To jLastRow Set rRange = .Cells(i, 1) n11 = InStr(1, rRange, """") n22 = InStr(n11 + 1, rRange, """") AddressName = Right(rRange, n22 + 1) Next End With |
Помогите разобраться, где ошибка и как ее исправить.
Файл с примером прилагаю