Преобразование Всего Столбца В ProperCase

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

Dim Property As String

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

ActiveSheet.range("B6") = Property

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

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

1 ответ

  1. Одна строка:

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

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