Как преобразовать строки в правильный регистр с помощью vba

Строка является регистрокорректной , если первая буква каждого слова в строке заглавная, а все остальные буквы каждого слова — строчные.

Вы можете использовать следующий синтаксис в VBA для преобразования диапазона ячеек со строками в правильный регистр:

 Sub ConvertToProperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = StrConv(Range(" A " & i), vbProperCase)
    Next i
    
End Sub

В этом конкретном примере каждая строка в диапазоне A2:A10 будет преобразована в соответствующий регистр и отображены результаты в диапазоне B2:B10 .

В следующем примере показано, как использовать этот синтаксис на практике.

Пример. Преобразование строк в правильный регистр с помощью VBA

Предположим, у нас есть следующий столбец строк в Excel:

Предположим, мы хотим преобразовать каждую строку в столбце A в правильный регистр и отобразить результаты в столбце B:

Для этого мы можем создать следующий макрос:

 Sub ConvertToProperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = StrConv(Range(" A " & i), vbProperCase)
    Next i
    
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

В столбце B отображается каждая строка столбца A в соответствующем регистре.

Примечание . Полную документацию по функции StrConv в VBA можно найти здесь .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

Как сравнивать строки в VBA
Как удалить пробелы из строки в VBA
Как заменить символы в строке в VBA