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: contato@dicasdeexcel.com.br

Por: FV

Comentários
Fabio Vianna
Siga-Me

Fabio Vianna

Modela planilhas deste 1994 e ministra treinamentos desde 1997.
Especialista em Modelagem Profissional de Planilhas, incluindo Dashboards no Excel.
Fabio Vianna
Siga-Me

Últimos posts por Fabio Vianna (exibir todos)

Receba nossa Agenda

Cadastre-se para receber nossa agenda de treinamentos.

Obrigado :)