下面的VBA代码可以将活动工作表中的所有文本字符串的首字母改为大写，对包含公式单元格则不作更改。
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