Конвертация процентов из текста: «9,11%» --> 9,11%

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

Конвертация процентов из текста: «9,11%» --> 9,11% (Макросы/Sub)

Serega-Sol

Дата: Понедельник, 11.08.2025, 15:38 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 27

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

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

2016

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

Код

Dim a As String
Dim b As Single

a = Replace(Cells(7, 7), "%", "")
b = CSng(a)
Cells(7, 8).NumberFormat = "0.00%"
Cells(7, 8) = b / 100

[/vba]