如何在 Excel 中於大寫字母前自動插入空格？

作者曉陽修改日期2025-09-30

在 Excel 中妥善格式化資料，對於提升清晰度與分析效率至關重要，尤其是在處理可讀性欠佳的匯入資料或串接文字字串時。您可能經常遇到文字中單字緊密相連、毫無空格的情況（例如「DataFormattingTool」），導致閱讀與後續處理困難重重。在每個大寫字母前插入空格，能有效分隔單字，讓試算表內容更易讀、易懂且便於分享。本指南將為您介紹多種實用方法，協助您快速在 Excel 中於每個大寫字母前加入空格，確保資料無論在何種情境下都能井然有序、輕鬆管理。

在 Excel 中於每個大寫字母前插入空格

使用公式（Excel 2019 及更新版本）
使用 Kutools for Excel
使用使用者自訂函數
使用 VBA 程式碼

使用公式在每個大寫字母前插入空格（Excel 2019 及更新版本）

運用 Excel 公式是在大寫字母前插入空格的直觀且可靠方法，無需任何程式設計技能或特殊工具，特別適合希望透過內建 Excel 函數實現自動化處理的使用者。以下方法充分利用 Excel 2019、Excel 2021 與 Microsoft 365 所提供的現代動態陣列及文字處理函數。

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

適用情境：適合使用最新版 Excel、需要快速取得公式解法，且希望避免使用 VBA 或增益集的使用者。此方法的優點在於，當儲存格內容變更或貼上新資料時會自動更新，但可能與舊版 Excel 不相容。

請依照下列步驟操作：

1. 將下列公式複製並貼上至空白儲存格中（例如，若原文本位於 A2，則貼到 B2），按下 Enter 即可在 Excel 365 或 2021 中取得第一筆結果；若使用 Excel 2019，請按 Ctrl+Shift+Enter 將其作為陣列公式套用：

=TRIM(LEFT(A2,1) & TEXTJOIN("", TRUE, IF(CODE(MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))>=65, IF(CODE(MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))<=90, " "&MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1), MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1)), MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))))

2. 取得第一筆結果後，向下拖曳填滿控點，即可依需求將公式套用至其他列。輸出結果會顯示您的原文本，並在每個大寫字母前自動插入空格。

使用公式在大寫字母前插入空格

此公式的說明：

LEFT(A2,1）： 傳回字串的第一個字元並保持不變，避免開頭出現多餘空格。
INDIRECT("2:" & LEN(A2)): 產生一個從第二個字元到結尾的序列，依位置逐一參照後續每個字元。
MID(A2, ROW（。。。），1）： 根據指定位置，一次提取一個字元。
CODE(...):評估每個提取出的字元，檢查其 ASCII 值；介於 65 與 90 之間者對應大寫英文字母（A-Z）。
TEXTJOIN("", TRUE, ...):將每個字串串接起來，並在識別為大寫字母的字元前自動插入空格；當指定 TRUE 時，會自動跳過所有空白文字。
TRIM(...):移除處理過程中可能產生的前後空格。

注意：若原始儲存格為空白或包含非文字內容，可能會發生錯誤。為確保最佳效果，請務必將資料設定為文字格式。拖曳公式時，請確認儲存格參照正確無誤；若資料的起始列或欄位不同，請適時調整！

使用 Kutools for Excel 在每個大寫字母前插入空格

「Kutools for Excel」提供高效方法，可在整個選取的資料範圍中，於每個大寫字母前自動插入空格。其內建的「新增文字」功能操作簡單直覺，為不願記憶複雜公式或撰寫程式碼的使用者，帶來實用又便捷的替代方案。

適用情境：此解決方案非常適合經常處理大量資料、偏好圖形介面，或不熟悉公式與程式碼的使用者，能快速執行批次作業，並有效降低公式錯誤風險。唯一前提是必須安裝 Kutools for Excel。

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 選取要於大寫字母前加入空格的儲存格範圍，接著前往「Kutools」功能表 >「文字」>「新增文字」，系統將開啟相關選項。
點擊 Kutools 的「加入文字」

2. 在「添加文本」對話方塊中，於「文字」框內輸入一個空格字元，然後啟用「僅新增至」選項，並從下拉式選單中選擇「大寫字母前」。
在對話框中指定選項

3. 按一下「確定」以套用變更，您所選範圍中的每個大寫字母前都會插入一個空格，如下所示：
使用 Kutools 在每個大寫字母前插入空格

注意事項：

請仔細確認您的選取範圍，因為此操作將直接套用至您的資料。使用批次編輯功能前，建議先備份資料。
此函數區分大小寫，僅作用於大寫字母（A-Z）。

使用使用者自訂函數在每個大寫字母前插入空格

若您需要更高的彈性，或希望擁有可重複使用的自訂處理方案，可在 VBA 中建立使用者自訂函數（UDF），精確實現在大寫字母前插入空格的邏輯。此方法能讓試算表維持動態更新，因為該函數會如同其他 Excel 公式一般自動重新計算。

優點：提供完整自訂能力，只要複製程式碼，就能輕鬆跨不同活頁簿重複使用！
缺點：需具備基本 VBA 編輯器操作知識。UDF 公式在某些 Excel 環境（尤其是 Excel Online 或啟用巨集限制的環境）中可能無法運作。

1. 開啟包含待處理文字字串的工作表。

2. 按下 ALT + F11，即可開啟 Microsoft Visual Basic for Applications（VBA）編輯器。

3. 在 VBA 編輯器中，點選「插入」>「模組」，並將下列程式碼複製貼上至新建立的模組視窗中。

VBA 程式碼：在大寫字母前插入空格

Function AddSpaces(pValue As String) As String
'Updateby Extendoffice
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4. 儲存專案並關閉 VBA 編輯器。返回工作表後，在鄰近資料的空白儲存格中（例如，若資料位於 A2，則在 B2 輸入）輸入下列公式，並按下 Enter：

=addspaces(A2)

向下拖曳儲存格的填滿控點，將 UDF 公式套用至清單中的其餘項目，每個文字字串都會如預期般在每個大寫字母前插入空格。

提示與疑難排解：

若希望在重新開啟檔案後仍可使用此 UDF，請將活頁簿儲存為啟用巨集的格式（*.xlsm 或 *.xlsb）。
當您變更文字資料時，UDF 輸出結果將自動更新。
UDF 在 Excel Online 或某些限制巨集的環境中不受支援。

使用 VBA 程式碼在每個大寫字母前插入空格

若您偏好能一次處理大範圍資料並直接永久修改工作表的解決方案，VBA 巨集無疑是絕佳選擇。此方法特別適合進階使用者或執行一次性清理任務，因為它會直接修改所選儲存格。

優點：能高效處理大型資料集，無需在儲存格中輸入公式，還能更精準掌控欲處理的儲存格範圍！

注意事項：由於此方法會直接變更您的資料，執行巨集前務必先備份。部分活頁簿基於安全性考量可能預設停用巨集—請依需求啟用巨集以繼續操作。

1. 按下 ALT + F11，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 按一下「插入」>「模組」，並將下列程式碼複製到模組視窗中：

VBA 程式碼：在大寫字母前插入空格

Sub AddSpacesRange()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. 按下「F5」鍵或點擊「執行」按鈕來執行巨集，系統將提示您選取要修改的範圍。
VBA 程式碼以選取資料範圍

4. 在選取範圍並點擊「確定」後，巨集將立即於所選儲存格中的所有大寫字母前插入空格。
使用 VBA 程式碼在大寫字母前插入空格

疑難排解注意事項：

如果巨集看似沒有作用，請確認您已選取正確的範圍，並已在 Excel 設定中啟用巨集。
執行後將無法復原此操作。若您有所顧慮，請先備份資料。
此巨集針對英文大寫字母（A-Z）進行最佳化；若使用非標準字元或本地化字母表，結果可能有所差異。

無論選擇哪種方法，在 Excel 中於每個大寫字母前插入空格，都能大幅提升字串的可讀性！每種方法皆針對特定情境量身打造——公式適用於動態計算、Kutools 提供使用者友善的自動化操作、UDF 便於重複使用，而 VBA 程式碼則適合強大的批次處理作業。運用這些技巧前，務必先備份原始資料，並在大量套用前仔細檢查，以防處理過程中不慎遺失重要內容。若遇到錯誤，請逐步檢視操作流程，並確認您的 Excel 版本支援所使用的函數或程式碼。立即探索我們豐富的教學資源，掌握更多 Excel 實用技巧！

如何在 Excel 中於逗號後自動加入空格？

最佳 Office 生產力工具

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