¿Cómo redondear un rango de números al número par más cercano en Excel?
¿Qué es el redondeo a par en Excel? El redondeo a par, también conocido como redondeo bancario, funciona igual que el redondeo habitual, salvo cuando la cifra a redondear termina en 5. En ese caso, si el dígito anterior al 5 es impar, se redondea hacia arriba; si es par, se redondea hacia abajo.
Por ejemplo, 23,345 redondeado a par en la centésima sería 23,34 y 12,335 redondeado a par en la centésima sería 12,34.
En este artículo te explicaré cómo aplicar 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
Puede utilizar la siguiente función definida para redondear números al par más cercano en Excel. Siga estos pasos:
1. Seleccione los números que quiera redondear al número par más cercano.
2. A continuación, mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
3. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del módulo.
Function BankersRound(num, precision)
BankersRound = Round(num, precision)
End Function
4. Guarde el código e introduzca la fórmula =bankersround(A1;2) en la celda adyacente vacía. Vea la captura de pantalla:
5. Pulse después la tecla Intro. Seleccione la celda B1 y arrastre el controlador de relleno hasta el rango en el que desee aplicar esta fórmula. Vea la captura de pantalla:
Redondear números a par con código VBA
Si prefiere no utilizar la función definida, el siguiente código VBA también le será de ayuda. Siga estos pasos:
1. Seleccione el rango que desee redondear al número par más cercano.
2. A continuación, mantenga pulsadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
3. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del 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 Sub4. Pulse después la tecla F5 para ejecutar este código; en el cuadro emergente, introduzca el número de decimales al que desea redondear. Vea la captura de pantalla:
5. A continuación, haga clic en Aceptar; todos los números seleccionados se redondearán a par. Vea las 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 le parecerán tan complejos: le presento una forma sencilla de resolverlo. Con Redondeo sin usar fórmulas de Kutools para Excel, podrá redondear rápidamente un rango de números al número par más cercano.
Kutools para Excel incluye más de 300 herramientas prácticas para Excel. ¡Pruébelo gratis sin limitaciones durante 30 días! Obtenerlo ahora.
Tras instalar Kutools para Excel, proceda del siguiente modo:
1. Resalte el rango que desee redondear a par.
2. Haga clic en Kutools > Redondear.
3. En el cuadro de diálogo Redondeo sin usar fórmulas, introduzca el número de decimales que necesite y, a continuación, seleccione Redondear a par en Opción; podrá previsualizar el resultado en el Panel de vista previa. Vea la captura de pantalla:
4. A continuación, haga clic en Aceptar o en Aplicar; todos los números se redondearán a par con 2 decimales.
Haga clic en «Redondear a par» para obtener más información sobre esta función.
Artículo relacionado:
Redondear / redondear hacia arriba / redondear hacia abajo un rango de números de celdas en Excel
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos