¿Cómo redondear un rango de números a pares en Excel?

¿Qué es el redondeo a par en Excel? El redondeo a par, también conocido como redondeo bancario, es básicamente igual que el redondeo normal, excepto cuando el número a redondear es el 5. Si el dígito antes del 5 es impar, debes redondear hacia arriba, y si el dígito antes del 5 es par, debes redondear hacia abajo.

Por ejemplo, 23.345 redondeado a par en el percentil sería 23.34. Y 12.335 redondeado a par en el percentil sería 12.34.

En este artículo, hablaré sobre cómo realizar el redondeo bancario en Excel.

Redondear números a par con una función definida por el usuario

Redondear números a par con código VBA

Redondear números a par con Kutools para Excel

Redondear números a par con una función definida por el usuario

Puedes usar la siguiente función definida para redondear números a par en Excel. Por favor, sigue los siguientes pasos:

1. Selecciona los números que deseas redondear a par.

2. Luego, mantén presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y pega la siguiente macro en la Ventana de Módulo.

Función BankersRound(num, precisión)
BankersRound = Redondear(num, precisión)
Fin Función

4. Guarda el código e introduce la fórmula =bankersround(a1,2) en la celda vacía adyacente. Ver captura de pantalla:

5. Luego presiona la tecla Enter. Y selecciona la celda B1, luego arrastra el controlador de relleno sobre el rango que deseas que contenga esta fórmula. Ver captura de pantalla:

Redondear números a par con código VBA

Si no quieres usar la función definida, el siguiente código VBA también puede ayudarte. Haz lo siguiente:

1. Selecciona el rango que deseas redondear a par.

2. Luego, mantén presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana de Módulo.

Sub RoundToEven()
'Update 20131107
Dim rng As Range
Dim WorkRng As Range
Dim intNumberOfDecimal As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
intNumberOfDecimal = Application.InputBox("NumberOfDecimal", xTitleId, Type:=1)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
    rng.Value = Round(rng.Value, intNumberOfDecimal)
Next
End Sub

4. Luego presiona la tecla F5 para ejecutar este código, en el cuadro de diálogo emergente, introduce el número de decimales al que deseas redondear. Ver captura de pantalla:

5. Luego haz clic en Aceptar, todos los números seleccionados se habrán redondeado a par. Ver capturas de pantalla:

Redondear números a par con Kutools para Excel

Ni la función definida por el usuario ni el código VBA son tan complejos; puedo presentarte una manera fácil de resolverlo. Con Redondear sin fórmula de Kutools para Excel, puedes redondear rápidamente un rango de números a par.

Kutools para Excel incluye más de 300 herramientas útiles para Excel. Prueba gratis sin limitaciones durante 30 días. Consíguelo ahora.

Después de instalar Kutools para Excel, puedes hacer lo siguiente:

1. Resalta el rango que deseas redondear a par.

2. Haz clic en Kutools > Redondear.

3. En el cuadro de diálogo Redondear sin Fórmula, introduce el número de decimales que necesitas, y luego selecciona Redondear a Par bajo Opción, y puedes ver una vista previa del resultado en el Panel de Vista Previa. Ver captura de pantalla:

4. Luego haz clic en Aceptar o Aplicar, todos los números se redondearán a par con 2 decimales.

Haz clic en Redondear a Par para saber más sobre esta función.

Artículo relacionado:

Redondear / redondear hacia arriba / redondear hacia abajo un rango de números de celdas en Excel