Добрый день! Сделал макрос, работает нормально, но с одной не точностью. Пример во вложении, распределял на выделенный диапазон сумму 123, а теперь сумма 120 Помогите пожалуйста Макрос следующий:
Код
Sub распределение_на_выделенный_диапазон()
' вначале выделить диапазон, затем запустить макрос и указать сумму
Dim a As Long
a = InputBox("Общий расход")
Dim x As Long
x = Selection.SpecialCells(xlCellTypeVisible).Count
Dim c As Long
c = a / x
Selection.SpecialCells(xlCellTypeVisible).Value = c
End Sub