Realizamos divisão em todas as células usando uma macro

Descrição

Macro para divisão automática de valores em células por um número arbitrário. Pode ser necessário se tivermos um arquivo de dados onde todos os valores são especificados em centavos e precisarmos traduzir cálculos e dados em hryvnias (ou outra moeda).

Claro, você pode usar fórmulas para converter valores, mas se houver muitos números, a conversão dessa forma será muito longa e chata.

Vamos considerar como dividir todas as células selecionadas por um número, por exemplo, "100" em Excel usando uma macro.

Código VBA para a macro

Para fazer isso, abra seu livro, vá para Editor do Visual Basic (Alt+F11), adicionar módulo VBA ( Insert - Module ) e copie este texto da macro lá:

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

Depois disso, você pode retornar para Excel. Selecione as células necessárias e execute nossa macro através do menu Tools - Macro - Macros (Alt+F8) .

Além disso, se você substituir no código da macro "100" na taxa de câmbio, então obteremos o valor em outra moeda.

Da mesma forma, você pode realizar qualquer operação, como multiplicar por qualquer número.