VBA将首字母改为大写

将所有大写的列标题更改为每个单词的首字母的最佳方法是什么？

谢谢

Answer 1

使用WorksheetFunction.Proper方法（Excel）其中大写文本string中的第一个字母和文本中的任何其他字母而不是字母之外的其他字母，比设置循环通过您的列标题。

例

Public Sub Example() Dim Last As Long Dim i As Long Last = Cells(1, Columns.Count).End(xlToLeft).Column Debug.Print Last ' Print on Immdiate Window With ActiveWorkbook For i = Last To 1 Step -1 Debug.Print Cells(1, i).Value ' Print on Immdiate Window Cells(1, i).Value = WorksheetFunction.Proper(Cells(1, i).Value) Next i End With End Sub