将整个列转换为ProperCase

Question

所以我知道我可以使用以下代码将一个单元格的值更改为B列中的正确大小写。

Dim Property As String

Property = ActiveSheet.range("B6").Value
Property = StrConv(Property, vbProperCase)

ActiveSheet.range("B6") = Property

我现在需要做的是弄清楚如何将适当的案例功能应用于整个B列。

我猜这可以通过循环完成，但我不确定这种循环的正确语法。

Answer 1

一行：

[B:B] = [INDEX(PROPER(B:B),)]

这将立即将整个列应用于整个列，而无需循环。