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

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", vb***mation, "Kutools for Excel" GoTo LInput End If If xRg.Columns.Count > 1 Then MsgBox "It only work in one column", vb***mation, "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

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。 

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！