由于特殊的原因，需要将单元格的字符串的首字母改为大写。如果数据量大，逐个去修改显然是不科学的。

下面通过一个自定义的函数，将活动中的工作表中的所有文本字符串的首字母改为大写，对包含公式单元格则不作更改。

详细源码：

Sub CapitalizeFirstLetter()     Dim Rng As Range     ActiveSheet.UsedRange.Select     For Each Rng In Selection.Cells         If Rng.HasFormula = False Then             Rng.Value = Application.WorksheetFunction.Proper(Rng.Value)         End If     Next Rng End Sub

在工作表中插入一个形状或者按钮等等，指定该操作的宏，如下效果图：