如何在 Excel 中快速依大小寫區分來拆分文字字串？

作者Sun修改日期2024-10-21

在 Excel 中，我們通常使用「文字分列」功能，依照固定寬度或分隔符號來拆分文字。但您是否嘗試過依大寫與小寫字母來拆分文字呢？例如，當您有一份資料清單，需要根據大小寫將其拆分為兩欄：一欄僅包含小寫字串，另一欄僅包含大寫字串（如下圖所示）。「文字分列」功能並不支援此操作，但我可以分享一個實用技巧，讓您在 Excel 中快速依大小寫拆分文字字串！

使用 VBA 依大小寫拆分文字

使用 Kutools for Excel 依分隔符號將文字拆分為列／欄

使用 VBA 依大小寫拆分文字

在 Excel 中，僅能透過巨集程式碼快速將字串依小寫與大寫字母拆分。

1. 按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下方程式碼貼到空白的模組指令稿中。

VBA：依大小寫拆分字串。

Sub CamelCase()
'UpdatebyExtendoffice20160711
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Nothing
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    With CreateObject("vbscript.regexp")
        .Pattern = "(\S)([A-Z]+[^A-Z])"
        .Global = True
        For Each xCell In xRg
            xCount = .Execute(xCell).Count
            If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
        Next
    End With
    Application.ScreenUpdating = True
End Sub

將程式碼複製並貼上到模組中

3. 按下 F5 鍵後，將彈出對話方塊，提示您選取要拆分的文字。請參見下圖：
選取要分割文字的 VBA 程式碼

4. 點選確定後，所選文字將自動拆分為兩欄：一欄包含符合小寫字串篩選的內容，另一欄則包含大寫內容。
文字依大小寫進行分割

使用 Kutools for Excel 依分隔符號將文字拆分為列／欄

在許多情況下，您可能希望根據特定字元將儲存格拆分為多個欄或列。Excel 內建的「文字分列」功能僅能直接將儲存格轉換為欄，無法用於轉換為列。然而，透過 Kutools for Excel——這款便利實用的工具，您可運用其分割儲存格功能，快速依分隔符號或固定寬度將字串靈活拆分為欄或列！

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

安裝免費版 Kutools for Excel 後，請依照下列步驟操作：

1. 選取您要拆分的儲存格，然後點選 Kutools＞ 合併和拆分＞ 分割儲存格。請參見下圖：
點擊 Kutools 的「分割儲存格」功能

2. 在分割儲存格對話方塊中，於類型區段勾選您想要的拆分類型，並於依以下方式拆分區段勾選您要使用的特定分隔符號作為分割依據。請參見下圖：
在對話框中指定選項

3. 點選確定後，將彈出對話方塊，提示您選取一個儲存格來放置拆分後的內容。請參見下圖：
選取一個儲存格以放置分割後的內容

4. 選取後，點選確定，所選儲存格就會依空格拆分為多列。請參見下圖：
所選儲存格將根據空格分割成多列

最佳 Office 生產力工具

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