Преобразование числа до сотых в значениях

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Преобразование числа до сотых в значениях (Формулы/Formulas)

Zhuzhiks

Дата: Вторник, 10.11.2020, 22:01 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Здравствуйте!
Столкнулся для себя с нерешаемой проблемой.
Дело в том, что числа, которые отображаются и имеют значения в эксель, отображаются не полностью, т.е. видимо имеют значение "с конца" в единицу.
Для понимание прикладываю пример. Понять, что эти числа не ограничиваются десятками и сотнями, возможно только при суммировании.
Пытался идти разными способами и через блокнот, и через формулу округления и через поиск значений содержащие эти знаки, через разбитие на массивы и их суммирование. Конечной попыткой был макрос (я не про, но попытался), но он тоже не помог, суммы все равно не считаются до сотых. Может кто-нибудь поможет с решением данной задачи?
Макрос, который не смог...
[vba]

Код

Sub SHRT()
Dim LastRow As Long
LastRow = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Dim i As Long
Dim Bc As Double
For i = 1 To (LastRow - 1)
Bc = Range("A" & (i + 1))
ThisWorkbook.Worksheets(1).Range("B" & (i + 1)) = CInt(Int(Bc * 100)) / 100
Next i
End Sub

[/vba]
Спасибо.