Добрый день!
Ситуация такая: есть ячейки с данными в разном формате. Нужно получить их в текстовом. Проблема в том, что функция ТЕКСТ не "видит" первые 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 |
