Atalho do teclado para alterar o caso de texto em células no Excel 2010?

A sugestão de Paul é boa ou pode escrever as suas próprias macros e atribuir teclas de atalho

Sub makeUPPER()
  ActiveCell = UCase(ActiveCell)
 End Sub

 Sub makeLOWER()
  ActiveCell = LCase(ActiveCell)
 End Sub

Utilizei a seguinte técnica para converter uma coluna de texto em maiúsculas.

1. mover o cursor para uma coluna em branco.
2. Na célula vazia na mesma linha da primeira célula que pretende converter, digite =upper(A3), se A3 for a primeira célula que pretende converter.
3. A célula anteriormente vazia deve agora mostrar o equivalente em maiúsculas da sua primeira célula de texto.
4. Copie esta célula abaixo da coluna para a mesma altura que todo o seu texto.
5. Deverá agora ter uma coluna equivalente ao seu texto, mas tudo em maiúsculas.
6. Realce todas as células do texto em maiúsculas, e seleccione copiar.
7. Clique com o botão esquerdo do rato na primeira célula do seu texto fonte (que não está em maiúsculas), que irá seleccionar a célula.
8. Clicar com o botão direito do rato.
9. Seleccione Colar Especial
10. Na caixa de listagem, seleccione o botão de rádio “Valores”, e clique OK.
11. Terá agora 2 colunas de texto em maiúsculas.
12. Apagar a coluna que contém as fórmulas =upper().

O mesmo princípio funciona para as funções de Correcto, e outras funções de manipulação de texto.

Se instalar o excelente addin ASAP Utilities Excel (gratuito para uso pessoal)… http://www.asap-utilities.com/download-asap-utilities.php

isto tem incorporado o CASO UPPER e opções de minúsculas (assim como um zilhão de outras) às quais pode atribuir teclas de atalho (ver o seu website para mais informações)

Copie o texto que pretende alterar o estojo para colar em palavra realce-o e carregue em shift + f3 até ao estojo que pretende e corte e volte atrás.

Isto funciona melhor para mim, uma vez que funciona em múltiplas selecções de células:

Sub Uppercase()
    For Each Cell In Selection
        If Not Cell.HasFormula Then
            Cell.Value = UCase(Cell.Value)
        End If
    Next Cell
End Sub