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

Вы можете использовать функцию UCase в VBA для преобразования строк в верхний регистр.

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

 Sub ConvertToUpperCase()
    
    Dim i As Integer

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

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

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

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

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

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

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

 Sub ConvertToUpperCase()
    
    Dim i As Integer

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

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

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

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

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

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

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