如何在 Excel 中縮寫數字？

作者Sun修改日期2025-07-23

在 Excel 中處理大型資料集時，常會遇到龐大的數字，不僅讓工作表顯得雜亂，也使資料更難閱讀與分析。例如，在儀表板或摘要報告中呈現如 1,234,567 或 12,000,000 這類數值，容易讓閱覽者感到不知所措。此時，若能將數字縮寫（例如將 1234567 轉換為 1.23M，或將 12000 轉換為 12K），不僅提升清晰度，更能維持簡潔俐落的版面配置。本教學提供多種在 Excel 中縮寫數字的實用方法，包括內建格式設定、公式與 VBA 巨集，每種方式皆適用於不同情境，可依您的偏好與工作流程需求靈活選用！

縮寫數字|使用 Excel 公式縮寫|使用 VBA 巨集縮寫數字

縮寫數字

在 Excel 中縮寫數字最直接的方法之一，就是透過「設定儲存格格式」對話方塊自訂數字格式。此方法僅改變數字的顯示方式，不會影響其底層數值，因此在進行計算時仍能確保精確無誤。這特別適合用於快速製作報告，或當您希望數字自動更新卻不想新增額外欄位的情況。但請注意，此方法無法輸出文字結果，也不支援在同一欄中混合使用不同單位（例如同時使用 M 與 K）並搭配複雜邏輯——若需這類功能，建議改用公式或巨集。

1. 選取您要縮寫的數字範圍，然後在選取區域中任意位置按一下滑鼠右鍵，並從內容功能表中選擇設定儲存格格式。

從右鍵選單點選「儲存格格式」

2. 在設定儲存格格式對話方塊中，切換至數字索引標籤，於左側清單選取自訂，並在類型欄位輸入：[>999999]#,,"M";#,"K"。此自訂格式會讓 Excel 自動將大於 999,999 的數值以百萬（附「M」）顯示，其餘則以千（附「K」）呈現，讓數據一目了然！請參見截圖：

設定資料類型

3. 按一下確定以套用格式設定。您所選區域中的數字現在將以縮寫形式顯示，讓大型資料集更容易快速瀏覽與理解！

數字縮寫的結果

提示：若您只需將所有大數字以千（「K」）顯示，請在類型框中輸入 #,"K"；若僅需百萬單位，請使用 #,,"M"；若需十億或兆單位，則分別使用 #,,,"B"或 #,,,,"T"。若要同時正確顯示百萬與十億單位，請使用 [>999999999.999]#,,,"B";[>999999.999]#,,"M";#,##0 _M。請注意，數字格式僅影響顯示方式，不會改變計算所用的實際數值。若您需要更客製化的邏輯（例如四捨五入、控制小數位數或處理負數），建議搭配公式或 VBA 巨集靈活實現！

注意事項：若您的資料包含小於 1,000 的數值，這些數值將以原始形式顯示，不會被縮寫。此方法無法在同一儲存格中同時結合「M」與「K」，除非使用延伸的自訂格式，但仍有一定限制。請留意，格式化後的數字在底層公式中仍採用原始數值，於複製或匯出資料時可能造成混淆。

使用 Excel 公式縮寫數字（將轉換為文字）

若您希望在新欄位中顯示縮寫結果，並需自訂邏輯（例如顯示小數位數如 1.25M、混合使用 K/M/B/T 單位，或控制結果以文字形式呈現），可運用 Excel 函數打造動態縮寫。此方法尤其適合當您需要在其他公式或輸出中凍結或進一步操作顯示文字時使用。

適用情境：當您需要文字輸出，或需運用自訂格式所不支援的進階縮寫邏輯時，此方法最為合適。無論是摘要、儀表板，還是分享已匯出或貼上的結果，都能輕鬆應對！

1. 在目標儲存格中輸入下列公式（例如，若您的數字位於）A2，請於 B2 輸入）：

=IF(ABS(A2)>=1000000000,TEXT(A2/1000000000,"0.00")&"B",IF(ABS(A2)>=1000000,TEXT(A2/1000000,"0.00")&"M",IF(ABS(A2)>=1000,TEXT(A2/1000,"0.00")&"K",A2)))

此公式會檢查 A2 中的數值，並根據數值大小自動以 B（十億）、M（百萬）或 K（千）進行縮寫，同時保留兩位小數。公式支援負數，且小於 1,000 的數值將維持原始格式顯示。

2. 按下 Enter 確認公式，若需套用至更多列，請向下拖曳填滿控點，或依需求將公式複製到其他儲存格。

實用技巧：若要自訂小數位數，請調整 TEXT 函數中的「0.00」部分（例如改用「0.0」以顯示一位小數）。若需處理極大數字（如兆以上），請進一步擴充 IF 結構。

注意事項：－此方法會產生文字輸出，因此這些數字無法直接用於 SUM 或其他數學公式進行正確計算，除非先轉換回數值格式。若您希望避免顯示尾隨零（例如顯示「12M」而非「12.00M」），請在 TEXT 函數中使用自訂格式。

使用 VBA 巨集縮寫數字

對於希望全面自動化縮寫整個範圍內數字，或需套用難以透過公式與數字格式處理的自訂規則的使用者，可善用 Excel VBA 巨集。此方法不僅支援就地取代，也能在新欄位中輸出縮寫結果，非常適合執行重複性任務或處理大型資料表。

最適用於：在大型或動態範圍中自動化縮寫；打造自訂且可重複使用的流程；對不同資料結構進行批次處理。

1. 首先，按下 Alt + F11 以開啟 Excel 中的 VBA 編輯器。在 VBA 視窗中，點選插入 > 模組，建立新模組，並將下列程式碼複製到模組視窗中：

Sub AbbreviateNumbersAddColumn()
    Dim rng As Range
    Dim cell As Range
    Dim destCol As Range
    Dim abbrevValue As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select the range of numbers to abbreviate", xTitleId, rng.Address, Type:=8)
    
    If rng Is Nothing Then Exit Sub
    
    Set destCol = rng.Offset(0, 1).Columns(1)
    
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            If Abs(cell.Value) >= 1000000000 Then
                abbrevValue = Format(cell.Value / 1000000000, "0.00") & "B"
            ElseIf Abs(cell.Value) >= 1000000 Then
                abbrevValue = Format(cell.Value / 1000000, "0.00") & "M"
            ElseIf Abs(cell.Value) >= 1000 Then
                abbrevValue = Format(cell.Value / 1000, "0.00") & "K"
            Else
                abbrevValue = cell.Value
            End If
        Else
            abbrevValue = cell.Value
        End If
        
        destCol.Cells(cell.Row - rng.Row + 1, 1).Value = abbrevValue
    Next
    
    MsgBox "Abbreviated values written to the column to the right of the selection."
End Sub

2 若要執行此程式碼，請先關閉 VBA 視窗。在 Excel 中，選取您要縮寫的數字範圍，然後按下 F5 鍵 或按一下「執行」。巨集將提示您選取範圍，並把縮寫結果自動寫入原始範圍右側緊鄰的欄位中！

使用提示：若您希望保留原始資料，此方法非常安全——結果將顯示在相鄰的新欄位中。您可修改程式碼以直接覆寫原始資料，但除非已備份，否則不建議這麼做。

疑難排解提醒：請確保您的活頁簿已啟用巨集。若資料包含文字或空白儲存格，巨集將保留這些內容不變。若需自訂標籤（例如以「T」代表兆），請相應調整 If 區塊。

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多