Добрый день!
Ситуация такая: есть ячейки с данными в разном формате. Нужно получить их в текстовом. Проблема в том, что функция ТЕКСТ не "видит" первые 0. Задать какой-то формат нельзя, так как данные разной длинны. Есть одно решение: скопировать в текстовый редактор - скопировать в excel в ячейки с текстовым форматом. Хотелось бы получить функцию, которая берет значение ячейки, копирует в word (или, если можно, в блокнот, так как быстрее будет работать), копирует из word и вставляет в ячейку с формулой.
Так как нет знаний VBA, не могу правильно прописать формулу:
Ситуация такая: есть ячейки с данными в разном формате. Нужно получить их в текстовом. Проблема в том, что функция ТЕКСТ не "видит" первые 0. Задать какой-то формат нельзя, так как данные разной длинны. Есть одно решение: скопировать в текстовый редактор - скопировать в excel в ячейки с текстовым форматом. Хотелось бы получить функцию, которая берет значение ячейки, копирует в word (или, если можно, в блокнот, так как быстрее будет работать), копирует из word и вставляет в ячейку с формулой.
Так как нет знаний VBA, не могу правильно прописать формулу:
Код |
---|
Function ЗвТ(val) Set oWord = CreateObject("Word.Application") ` oWord.Visible = True oWord.Documents.Add Range(val).Copy oWord.Selection.Paste oWord.Range.Copy Range.Paste oWord.Quit SaveChanges:=wdDoNotSaveChanges End Function |