Como arredondar um intervalo de números para par no Excel?

O que é arredondar para par no Excel? Arredondar para par, também chamado de arredondamento bancário, é basicamente como o arredondamento normal, exceto quando o número a ser arredondado termina em 5. Se o dígito antes do 5 for ímpar, você deve arredondar para cima, e se o dígito antes do 5 for par, você deve arredondar para baixo.

Por exemplo, 23,345 arredondado para par na centésima seria 23,34. E 12,335 arredondado para par na centésima seria 12,34.

Neste artigo, vou falar sobre como fazer o arredondamento bancário no Excel.

Arredonde números para par com Função Definida pelo Usuário

Arredonde números para par com código VBA

Arredonde números para par com Kutools para Excel

Arredonde números para par com Função Definida pelo Usuário

Você pode usar a seguinte função definida para arredondar números para par no Excel. Por favor, faça o seguinte:

1. Selecione os números que deseja arredondar para par.

2. Em seguida, mantenha pressionadas as teclas ALT + F11, e isso abrirá a janela Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo, e cole a seguinte macro na Janela do Módulo.

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

4. Salve o código e insira a fórmula =bankersround(a1,2) na célula adjacente em branco. Veja a captura de tela:

5. Em seguida, pressione a tecla Enter. E selecione a célula B1, depois arraste a alça de preenchimento sobre o intervalo que deseja que contenha esta fórmula. Veja a captura de tela:

Arredonde números para par com código VBA

Se você não quiser usar a função definida, o seguinte código VBA também pode ajudá-lo. Faça assim:

1. Selecione o intervalo que deseja arredondar para par.

2. Em seguida, mantenha pressionadas as teclas ALT + F11, e isso abrirá a janela Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo, e cole o seguinte código na Janela do 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. Em seguida, pressione a tecla F5 para executar este código, na caixa de prompt, insira o número de casas decimais que deseja arredondar. Veja a captura de tela:

5. Em seguida, clique em OK, todos os números selecionados serão arredondados para par. Veja as capturas de tela:

Arredonde números para par com Kutools para Excel

Nem a função definida pelo usuário nem o código VBA são tão complexos; posso apresentar uma maneira fácil de resolver isso. Com o recurso Arredondamento sem fórmula do Kutools para Excel, você pode rapidamente arredondar um intervalo de números para par.

Kutools para Excel inclui mais de 300 ferramentas úteis para o Excel. Gratuito para experimentar sem limitação por 30 dias. Obtenha-o agora.

Após instalar o Kutools para Excel, você pode fazer o seguinte:

1. Destaque o intervalo que deseja arredondar para par.

2. Clique em Kutools > Arredondar.

3. Na caixa de diálogo Arredondamento sem Fórmula, insira o número de casas decimais que precisa, e escolha Arredondar para Par em Opções, e você pode visualizar o resultado no Painel de Visualização. Veja a captura de tela:

4. Em seguida, clique em OK ou Aplicar, todos os números serão arredondados para par com duas casas decimais.

Clique em Arredondar para Par para saber mais sobre este recurso.

Artigo relacionado:

Arredondar / arredondar para cima / arredondar para baixo um intervalo de números de células no Excel