Como capitalizar a primeira letra em uma célula no Excel

Question

Recentemente me deparei com excel com células preenchidas com pequenos casos, existe alguma maneira fácil ou macro para capitalizar cada palavra do excel?

Por exemplo, considere a imagem abaixo:

Apósaconversão,devesersemelhanteaoseguinte:

Eu preciso capitalizar todas as células [célula inteira] no excel com a primeira letra como capital? alguma maneira fácil de realizá-lo?

    

Answer 1

I need to capitalize every cell in excel with first letter as capital?any easy way to accomplish it?

Sim, use essa macro. Lembre-se de fazer um backup do arquivo primeiro!

Sub uppercase()

For Each cell In Application.ActiveSheet.UsedRange
    If (cell.Value <> "") Then
         cell.Value = UCase(cell.Value) ' this will make the entire cell upper case
    End If
Next

End Sub

Para fazer a primeira letra de cada célula maiúscula você usaria

cell.Value = UCase(Left(cell.Value, 1)) & Right(cell.Value, Len(cell.Value) - 1)               'This will make the first word in the cell upper case

Para criar um título, use

Sub titleCase()

For Each cell In Application.ActiveSheet.UsedRange
    If (cell.Value <> "") Then
         cell.Value = TitleCase(cell.Value) ' this will make the entire cell upper case
    End If
Next

End Sub


Function TitleCase(s) As String
a = Split(s, " ")

For i = 0 To UBound(a)
    If (Trim(a(i)) <> "") Then
      TitleCase = TitleCase & UCase(Left(a(i), 1)) & Right(a(i), Len(a(i)) - 1) & " "
    End If
Next
TitleCase = Trim(TitleCase)
End Function

Como eu adiciono o VBA no MS Office?

    

Answer 2

Não há necessidade de usar o VBA para alterar nenhum caso. Certamente existem funções VBA que fazem isso como mostrado por outras respostas, mas, a menos que você já esteja escrevendo algo no VBA, isso é um exagero.

As seguintes fórmulas converterão casos para você.

=UPPER(A1) converte todas as letras em maiúsculas
=LOWER(A1) converte todas as letras em minúsculas
=PROPER(A1) converte a primeira letra de cada palavra em maiúscula e todas as outras letras em minúsculas
(A "word "é uma sequência consecutiva de letras. Qualquer não-letra é considerada o fim de uma palavra.)

Aqui estão alguns exemplos dos resultados:

Entrada: Aaa bbb-ccc/ddd=eee9fff"ggg\hhh{iii(jjj
Superior: AAA BBB-CCC/DDD=EEE9FFF"GGG\HHH{III(JJJ
Inferior: aaa bbb-ccc/ddd=eee9fff"ggg\hhh{iii(jjj
Adequado: Aaa Bbb-Ccc/Ddd=Eee9Fff"Ggg\Hhh{Iii(Jjj

Se você deseja capitalizar apenas a primeira letra de uma célula, combine UPPER com algumas outras funções:
=UPPER(LEFT(A1)) & MID(A1,2,LEN(A1))

    

Answer 3

Aqui está uma macro simples para converter texto em um intervalo para todos os CAPS. Altere o intervalo na terceira linha para o intervalo que você deseja converter.

Sub Uppercase()
   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("A1:A25")
      ' Change the text in the range to uppercase letters.
      x.Value = UCase(x.Value)
   Next
End Sub

    

Answer 4

Você também pode copiar os dados necessários em um documento do Microsoft Word e alterar os casos com letras usando o botão "Aa" no diretório Início > Guia Fonte . Em seguida, basta copiar e colar de volta no Excel.

    

Answer 5

Use o LibreOffice! Você pode abrir, alterar e salvar arquivos do Excel. 1. Selecione as células que você deseja alterar 2. Aponte para Format > Texto > Alterar caso > Capitalize cada palavra Simples.