ВВЕРХ

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

Описание

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

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

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


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" на курс валюты, то получим значение в другой валюте.

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