excel利用VBA将文本字符串的首字母变成大写

来源:转载

下面的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

分享给朋友:
您可能感兴趣的文章:
随机阅读: