Виконуємо ділення в комірках за допомогою макроса

Макрос для автоматичного поділу значень в комірках на довільне число. Може бути необхідним, якщо ми маємо файл з даними, де всі значення вказані в копійках, а нам необхідно перевести розрахунки та дані в гривні (або в іншу валюту). Для цього відкрийте свою книгу, перейдіть у Visual Basic Editor (Alt+F11), додайте новий бланк модуля (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" на курс валюти, то отримаємо всі вихідні значення в іншій валюті.
Звичайно, можна скористатися формулами для переведення значень, проте якщо цифр дуже багато, то перетворювати таким способом буде дуже довго та нудно.

Статті по темі:

Сортування аркушів в книзі

-->