Удалить кавычки в строке - VBA

  1. Здравствуйте! На листе1 в строке 431 пятой колонки находится слово в кавычках - "Белая" Мне нужно убрать кавычки Я ввожу стринговую переменную и инициализирую её данными из ячейки. str = Trim(Worksheets(1).Cells(431, 5).Value) Получается переменная str = "Белая" Пишу: If (str Like "*" & Chr(34) & "*" & Chr(34) & "*") Then str= Replace(str, Chr(34), "") Но кавычки не убираются((( При этом для интереса написала ещё вот так: str1 = Chr(34) & "Белая" & Chr(34) И в этом случае конструкция If срабатывает и кавычки убираются. Так что же не так с первым вариантом, когда переменная инициализируется данными ячейки? Мелочь, но никак не могу обойти( Помогите, пожалуйста... Спасибо.


textual

Код к задаче: «Удалить кавычки в строке - VBA»

Range("E:E").Replace "'", "", xlPart '"''"

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.600 из 5



Похожие ответы
  1. Доброй ночи! Имеется excel файл с большим количеством страниц, строк и столбцов. В ячейках: Перед началом слов и после них имеются НЕ НУЖНЫЕ пробелы. Напишите пожалуйста макрос при запуске которого будут удаться все пробелы в начале и конце предложения внутри выделенной ячейки, внутри выделенного столбца, внутри выделенной строки. Уточню, что пробелы между словами необходимо оставить, даже если их несколько идущих подряд. Пример необходимо замены: заменить это: " Привет, замените меня ", на это: "Привет, замените меня" Прикрепляю во вложении пример файла исходник.

  1. Здравствуйте Коллеги! Прошу помочь с циклом (For) - удаление рисунков. Ситуация следующая: в документе имеются n - количество рисунков с одинаковым именем "Имя", необходимо их удалить. Попробовал написать следующий код но, он удаляет только первый рисунок.

  1. Добрый день! Напишите пожалуйста макрос который удаляет текст после первого определённого символа - точка с запятой (, Ячейки с текстом находятся в столбце D (Их около 50 тыс.). Пример файла исходник: (D1) Мебель;Красная;Жёлтая;Пластиковая;Деревянная (D2) Мебель;Красная;Жёлтая;Пластиковая;БУ (D3) Мебель;Красная;Жёлтая;Пластиковая;Новая Пример файла необходимый результат: (D1) Мебель (D2) Мебель (D3) Мебель Пример файла во вложение.

  1. Удалить символы, стоящие перед символом *. Рассмотреть случай наличия в последовательности нескольких символов *.

  1. Привет всем, мне понадобилось сделать макрос, который будет удалять все что находится ниже определенной строки (например 20) Вот что я написал, не могу только понять где кроется ошибка

  1. Делаю в VBA парсер (структуризатор) табличных данных, как правило, числовых. К некоторым числам вставлено примечание примерно в таком виде: 2154). А в тяжелых случаях и вот так: 2154. Если этот надстрочное примечание не удалить, то числовые данные безобразно исказятся в выходной таблице. Как мне через VBA понять, что вот эта часть текста в ячейке написана надстрочным шрифтом, а потому является примечанием и должна быть удалена? Сейчас содержимое листа Excel считывается в 2Д-массив вот так (очевидно, тут форматирование теряется):

  1. Добрый день. Исходные данные1 2 4 2 5 21 5 6 2 5 6 Необходимо привести к виду без дублирующихся значений в строках1 2 4 5 1 5 6 2

  1. Добрый день! Имеется excel файл напечатанного ниже формата:Столбец "B" - название;Столбец "C" - путь к названию. Напишите пожалуйста макрос который удалит из ячеек столбцы "C", текст написанный в ячейках столбца "B". В каждом из столбцов заполнено по 50 тыс. строк. Пример файла исходник: [B1] Дождь/Снег/Вихрь/ Вода, [C1] Мини/Атлас /Дождь/Снег/Вихрь/ Вода, Пример файла необходимый результат: [B1] Дождь/Снег/Вихрь/ Вода, [C1] Мини/Атлас / Прикрепляю файл во вложении: