Удаление десятичного числа из целых листов с помощью VBA

Question

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

пример. Значение 474,40 должно быть уменьшено до 474. Значения будут меняться при каждом запуске отчета.

Спасибо за вашу помощь.

Answer 1

Вы можете попробовать что-то вроде этого, выбрать необходимый столбец и округлить все ячейки по формуле:

    Sub RemoveDecimal()
        Dim rng As Range, cell As Range
        Set rng = Range("D1:D20")
        For Each cell In rng
            Debug.Print Round(cell.Value, 0)
        Next cell
    End Sub

Answer 2

Вы можете просто присвоить формат «Число» рассматриваемым ячейкам и установить для «Десятичных знаков» значение 0: