需求:手头有个几千行的函数列表,每个函数名都采用驼峰式命名方式命名,如(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