excel - 使用VBA将每个单词的第一个字母大写

Question

如何使用 VBA 格式化 Excel 工作表中的单词，使每个单词中的第一个字母大写，后跟小写字母？

Answer 1

PROPER 函数应该有帮助。请参阅this了解详情。

使用 VBA

Sub Demo()
    Dim ws As Worksheet
    Dim rng As Range, cel As Range
    Dim lastRow As Long

    Set ws = ThisWorkbook.Sheets("Sheet3")  'change Sheet3 to data sheet
    With ws
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        For Each cel In .Range("A1:A" & lastRow)
            cel.Offset(0, 1).Value = Application.Proper(cel.Value)
        Next
    End With
End Sub

使用公式

=PROPER(A1)