Realizamos división en todas las celdas usando una macro.

Descripción

Macro para división automática de valores en celdas por un número arbitrario. Puede ser necesario si tenemos un archivo de datos donde todos los valores están especificados en centavos y necesitamos traducir cálculos y datos a hryvnias (u otra moneda).

Por supuesto, puedes usar fórmulas para convertir valores, pero si hay muchos números, la conversión de esta manera será muy larga y aburrida.

Consideremos cómo dividir todas las celdas seleccionadas por un número, por ejemplo, "100" en Excel usando una macro.

VBA código para la macro

Para hacer esto, abra su libro, vaya a Editor Visual Basic (Alt+F11), agregar módulo VBA ( Insert - Module ) y copie este texto de macro allí:

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

Después de eso puedes regresar a Excel. Seleccione las celdas necesarias y ejecute nuestra macro a través del menú. Tools - Macro - Macros (Alt+F8) .

Además, si reemplaza en el código de macro "100" sobre el tipo de cambio, entonces obtendremos el valor en otra moneda.

Asimismo, podrás realizar cualquier operación, como multiplicar por cualquier número.