Всем доброго времени суток! прошу помощи!
Есть созданная в VBA фунуция Подставить. Необходимо найти решение позволяющее получить(протянуть) результат функции в строках столбца В беря аргумент в столбце А. Я смог создать макрос только для одной ячейки. Обязательным условием является, то что в столбце B не должны быть прописаны формулы.
Есть созданная в VBA фунуция Подставить. Необходимо найти решение позволяющее получить(протянуть) результат функции в строках столбца В беря аргумент в столбце А. Я смог создать макрос только для одной ячейки. Обязательным условием является, то что в столбце B не должны быть прописаны формулы.
| Код |
|---|
Function Подставить(txt)
Подставить = Replace(Replace(Replace(txt, " ", ""), "в", "В"), "Y", "")
End Function
Sub InsertFormula()
Dim txt As Variant txt = Range("A1")
Range("B1") = Подставить(txt)
End Sub |
Изменено: - 12.10.2018 23:29:18
