Страницы: 1
RSS
VBA Передать в переменную часть текста из ячейки по условию
 
Добрый день,

Имею таблицу, в которой содержится название компании и объект-склад.

Выглядит таблица так:
Объекты
-
ООО   "Компания-Л" (Склад-Лес) МОСКВА
ООО   "Компания и сыновья" (Склад-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

Помогите разобраться, где ошибка и как ее исправить.
Файл с примером прилагаю
 
Код
        For i = 3 To jLastRow
            AddressName = Mid(.Cells(i, 1), InStrRev(Cells(i, 1), """") + 2)
        Next
По вопросам из тем форума, личку не читаю.
 
Код
AddressName = Application.Trim(Split(rRange, """")(2))
 
Код
x = Split(Cells(3, 1), """")(2)
Страницы: 1
Наверх