Come arrotondare un intervallo di numeri a pari in Excel?

Cos'è l'arrotondamento a pari in Excel? L'arrotondamento a pari, chiamato anche arrotondamento bancario, è fondamentalmente come l'arrotondamento normale, tranne quando il numero da arrotondare è 5. Se la cifra prima del 5 è dispari, si deve arrotondare per eccesso, e se la cifra prima del 5 è pari, si deve arrotondare per difetto.

Ad esempio, 23.345 arrotondato a pari sulla centesima sarebbe 23.34. E 12.335 arrotondato a pari sulla centesima sarebbe 12.34.

In questo articolo, parlerò di come eseguire l'arrotondamento bancario in Excel.

Arrotonda i numeri a pari con una Funzione Definita dall'Utente

Arrotonda i numeri a pari con il codice VBA

Arrotonda i numeri a pari con Kutools per Excel

Arrotonda i numeri a pari con una Funzione Definita dall'Utente

Puoi utilizzare la seguente funzione definita per arrotondare i numeri a pari in Excel. Procedi nel modo seguente:

1. Seleziona i numeri che desideri arrotondare a pari.

2. Quindi tieni premuti i tasti ALT + F11, e si aprirà la finestra Microsoft Visual Basic per Applications.

3. Clicca su Inserisci > Modulo, e incolla la seguente macro nella Finestra del Modulo.

Function BankersRound(num, precision)
BankersRound = Round(num, precision)
End Function

4. Salva il codice, e inserisci la formula = bankersround(a1,2) nella cella vuota adiacente. Vedi screenshot:

5. Quindi premi il tasto Invio. E seleziona la cella B1, quindi trascina la maniglia di riempimento sopra l'intervallo che desideri contenga questa formula. Vedi screenshot:

Arrotonda i numeri a pari con il codice VBA

Se non vuoi usare la funzione definita, il seguente codice VBA può comunque aiutarti. Procedi in questo modo:

1. Seleziona l'intervallo che desideri arrotondare a pari.

2. Quindi tieni premuti i tasti ALT + F11, e si aprirà la finestra Microsoft Visual Basic per Applications.

3. Clicca su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

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. Quindi premi il tasto F5 per eseguire questo codice, nella finestra di dialogo, inserisci il numero di decimali che desideri arrotondare. Vedi screenshot:

5. Quindi clicca OK, tutti i numeri selezionati saranno arrotondati a pari. Vedi screenshot:

Arrotonda i numeri a pari con Kutools per Excel

Né la funzione definita dall'utente né il codice VBA ti sembrano così complessi, posso presentarti un modo semplice per risolvere il problema. Con Arrotonda senza formula di Kutools per Excel, puoi rapidamente arrotondare un intervallo di numeri a pari.

Kutools per Excel include più di 300 strumenti utili per Excel. Provalo gratuitamente senza limitazioni per 30 giorni. Ottienilo ora.

Dopo aver installato Kutools per Excel, puoi procedere come segue:

1. Evidenzia l'intervallo che desideri arrotondare a pari.

2. Clicca su Kutools > Arrotonda.

3. Nella finestra di dialogo Arrotonda senza Formula, inserisci il numero di decimali di cui hai bisogno, quindi scegli Arrotonda a Pari sotto Converti, e puoi visualizzare in anteprima il risultato dal Riquadro Anteprima. Vedi screenshot:

4. Quindi clicca OK o Applica, tutti i numeri verranno arrotondati a pari con 2 decimali.

Clicca su Arrotonda a Pari per saperne di più su questa funzione.

Articolo correlato:

Arrotonda / arrotonda per eccesso / arrotonda per difetto un intervallo di numeri di celle in Excel