Выполняем деление во всех ячейках с помощью макроса

Описание

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

Конечно, можно использовать формулы для конвертации значений, однако если цифр очень много, то превращать таким способом будет очень долго и скучно.

Давайте рассмотрим как поделить все выбранные ячейки на число, например, "100" в Excel с помощью макроса.

VBA код для макроса

Для этого откройте свою книгу, перейдите в Visual Basic Editor (Alt+F11), добавьте модуль VBA ( Insert - Module ) и скопируйте этот текст макроса туда:

Sub Division()
    For Each cell In Selection
        cell.Formula = cell.Value
    Next cell
    
    For Each cell In Selection
        cell.Value = cell.Value / 100
    Next cell
End Sub

После этого можете вернуться в Excel. Выделите необходимые ячейки и запустите наш макрос через меню Tools - Macro - Macros (Alt+F8) .

Также, если в коде макроса заменить "100" на курс валюты, то получим значение в другой валюте.

Аналогично, вы можете совершить любую операцию, например умножение на любое число.