Excel 将单元格字符串的首字母变为大写

由于特殊的原因，需要将单元格的字符串的首字母改为大写。如果数据量大，逐个去修改显然是不科学的。下面通过一个自定义的函数，将活动中的工作表中的所有文本字符串的首字母改为大写，对包含公式单元格则不作更改。
详细源码：SubCapitalizeFirstLetter()
DimRngAsRange
ActiveSheet.UsedRange.Select
ForEachRngInSelection.Cells
IfRng.HasFormula=FalseThen
Rng.Value=Application.WorksheetFunction.Proper(Rng.Value)
EndIf
NextRng
EndSub
在工作表中插入一个形状或者按钮等等，指定该操作的宏，如下效果图：

1509527612127356.gif