Добавление формулы в активный диапазон с использованием содержимого ячейки в этом диапазоне

Question

Я хочу добавить формулу в диапазон ячеек, используя содержимое ячейки.

Я относительно новичок в VBA и хочу создать макрос, который уменьшит мою работу.

Результат должен быть примерно таким. Используя формулу Round в качестве примера.

Например, я выбираю диапазон ячеек, и макрос добавляет формулу в выбранный диапазон, используя содержимое этой ячейки. Изображение ниже может быть более понятным для объяснения того, что я хочу.

Ожидаемый результат:

Answer 1

Sub ApplyRoundFormula()

For Each cell In Selection.Cells
    If cell.HasFormula Then
        StrCurrentFormula = cell.Formula
        StrCurrentFormula = Mid(StrCurrentFormula, 2, 999)
        cell.Formula = "=ROUND(" & StrCurrentFormula & ",0)"
    ElseIf IsNumeric(cell) Then
        cell.Formula = "=ROUND(" & cell.Value & ",0)"
    End If
Next

End Sub

Этот сценарий проходит по каждой ячейке выбранного диапазона (вы можете изменить Выбор на любую ссылку на диапазон), если он имеет формулы, он обрезает метку уравнения с самого начала и помещает остальное в формулу ROUND.Если у него нет формулы, но есть числовое значение, оно помещает это числовое значение в формулу ROUND.