如何在Excel中按大小写快速拆分文本字符串？

在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 键，弹出一个对话框，提示您选择要拆分的文本。参见截图：

4. 单击 确定，所选文本已被拆分为两列，一列包含小写字母，另一列包含大写字母。

使用Kutools for Excel按分隔符将文本拆分为行/列

在许多情况下，您可能希望根据特定字符将单元格拆分为多行或多列。在Excel中，内置的“文本到列”功能只能帮助您直接将单元格转换为列，但不能进行行转换。然而，借助Kutools for Excel——一个方便且实用的工具，您可以应用其“分割单元格”功能，基于分隔符或固定宽度快速将字符串拆分为行或列。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择要拆分的单元格，然后单击 Kutools > 合并与拆分 > 拆分单元格。参见截图：

2. 在 拆分单元格 对话框中，在 类型 部分勾选所需的拆分类型，然后转到 分隔依据 部分，勾选要基于的特定分隔符。参见截图：

3. 单击 确定，弹出一个对话框，提示您选择一个单元格以放置拆分后的内容。参见截图：

4. 选择后，单击 确定，所选单元格已基于空格被拆分为行。参见截图：