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

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

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

详细源码：

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

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