Преобразовать весь столбец Для ProperCase

Question

Так что я знаю, что могу использовать следующий код, чтобы изменить значение одной ячейки в правильном случае в столбце B.

Dim Property As String 

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

ActiveSheet.range("B6") = Property 

Что мне нужно сделать сейчас, это выяснить, как применить надлежащее case для всей колонки B.

Я предполагаю, что это может быть выполнено с помощью цикла, но я не уверен в правильном синтаксисе для такого цикла.

Answer 1

Одна линия:

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

Это будет применять Proper случай на весь столбец сразу без необходимости зацикливания.