调试经验——使用VBA分割驼峰式字符串（Split Camel Case String）

需求：手头有个几千行的函数列表，每个函数名都采用驼峰式命名方式命名，如（GaussianSymplecticMatrixDistribution，

MultivariateHypergeometricDistribution）。为了分析各函数的分布，需要将函数名拆分成单词词组以便进行词频统计和数据分析。

代码：

Sub CamelCase()
Dim rCell As Range
Dim lCount As Long
 
With CreateObject("vbscript.regexp")
    .Pattern = "([a-z])([A-Z])"
    .Global = True
    For Each rCell In Selection
        lCount = .Execute(rCell).Count
        If lCount Then rCell.Resize(, lCount + 1) = Split(.Replace(rCell, "$1" & Chr(1) & "$2"), Chr(1))
    Next rCell
End With
End Sub

运行结果：

参考文章：

https://www.mrexcel.com/forum/excel-questions/369471-how-split-camelcase-text-cells.html