Як перетворити рядки на правильний регістр за допомогою 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