如何在 Excel 中將數字範圍四捨五入為偶數？

什麼是 Excel 中的四捨五入到偶數？ 四捨五入到偶數也稱為銀行家捨入法，基本上它就像正常的四捨五入一樣，只是當要四捨五入的數字是 5 時有所不同。如果 5 前面的數字是奇數，則應該進位；如果 5 前面的數字是偶數，則應該捨去。

例如，23.345 在百分位上四捨五入到偶數將是 23.34，而 12.335 在百分位上四捨五入到偶數將是 12.34。

在本文中，我將介紹如何在 Excel 中進行銀行家捨入法。

使用使用者定義函數將數字四捨五入為偶數

使用 VBA 程式碼將數字四捨五入為偶數

使用 Kutools for Excel 將數字四捨五入為偶數

使用使用者定義函數將數字四捨五入為偶數

您可以使用以下定義的函數在 Excel 中將數字四捨五入為偶數。請按照以下步驟操作：

1. 選擇您要四捨五入為偶數的數字。

2. 然後按住 ALT + F11 鍵，這會打開 Microsoft Visual Basic for Applications 視窗。

3. 點擊 插入 > 模組，並將以下宏粘貼到模組視窗中。

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

4. 保存程式碼，並在相鄰的空白單元格中輸入公式 = bankersround(a1,2)。參見截圖：

5. 然後按下 Enter 鍵。選擇單元格 B1，然後將填充柄拖動到您希望包含此公式的範圍。參見截圖：

使用 VBA 程式碼將數字四捨五入為偶數

如果您不想使用定義的函數，以下 VBA 程式碼也可以幫助您。請按照以下步驟操作：

1. 選擇您要四捨五入為偶數的範圍。

2. 然後按住 ALT + F11 鍵，這會打開 Microsoft Visual Basic for Applications 視窗。

3. 點擊 插入 > 模組，並將以下程式碼粘貼到 模組視窗中。

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. 然後按下 F5 鍵運行程式碼，在提示框中輸入您希望四捨五入的小數位數。參見截圖：

5. 然後點擊 確定，所有選中的數字都已四捨五入為偶數。參見截圖：

使用 Kutools for Excel 將數字四捨五入為偶數

無論是使用者定義函數還是 VBA 程式碼，您都會覺得複雜，我可以介紹一種簡單的方法來解決這個問題。使用 Kutools for Excel 的無公式四捨五入功能，您可以快速將一系列數字四捨五入為偶數。

Kutools for Excel 包含超過 300 種實用的 Excel 工具。免費試用 30 天，無任何限制。立即獲取。

安裝 Kutools for Excel 後，您可以按照以下步驟操作：

1. 高亮顯示您要四捨五入為偶數的範圍。

2. 點擊 Kutools > 四捨五入。

3. 在 無公式四捨五入 對話框中，輸入您需要的小數位數，然後在 轉換 下選擇 四捨五入到偶數，您可以從 預覽窗格 中預覽結果。參見截圖：

4. 然後點擊 確定 或 應用，所有數字將被四捨五入為偶數，保留兩位小數。

點擊 四捨五入到偶數 以了解更多關於此功能的信息。

相關文章：

在 Excel 中對單元格數字範圍進行四捨五入 / 進位 / 舍位