Convertendo grande quantidade de Textos Para Maiúsculo

Se você quiser converter rapidamente uma grande quantidade de texto em diversas células,  sem a necessidade de redigitar o texto nas células, você pode usar o seguinte macro e em qualquer coluna:

Sub MakeUpper()
Dim MyText As String
Dim MyRange As Range
Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)
For CellCount = 1 To MyRange.End(xlDown).Row
If Not MyRange.Cells(CellCount).HasFormula Then
MyText = MyRange.Cells(CellCount).Value
MyRange.Cells(CellCount).Value = UCase(MyText)
End If
MyRange.Offset(1, 0).Select
Next CellCount
End Sub

Caso você tenha uma dica ou truque, envie para nós: [email protected]

Por: FV

• Sobre
• Últimos Posts

Siga-Me

Fabio Vianna

CEO em Centro de Treinamentos Fábio Vianna

Modela planilhas deste 1994 e ministra treinamentos desde 1997.
Especialista em Relatórios e Dashboards no Excel e no PowerBI.

Siga-Me

Últimos posts por Fabio Vianna (exibir todos)

• 6 maneiras de usar o preenchimento relâmpago - março 12, 2021
• quatro motivos para voce parar de usar o procv - fevereiro 16, 2021
• Como Criar um Gráfico de Waterfall no Excel - fevereiro 2, 2021