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