excel - 将代码应用于由列中的数据组成的范围

Question

我正在尝试选择列中的所有数据并使其大小写正确。

这就是我要开始的：

Range("D3").Select
Range(Selection, Selection.End(xlDown)).Select

我想我想用Application.WorksheetFunction.Proper.

标签： excelvba

Answer 1

这是我的方法，调整列索引 (rw.Row, 1 ) 以适合您的项目

Sub ConvertValuesInColumnOneToProperCase()

    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet: Set ws = ActiveSheet

    Dim rw As Range

    For Each rw In ws.UsedRange.Rows
        ws.Cells(rw.Row, 1) = StrConv(ws.Cells(rw.Row, 1), vbProperCase)
    Next rw

End Sub