Quando você está trabalhando dentro de uma planilha do Microsoft Excel 2010, a forma como o texto é formatado pode ser muito importante . Enquanto você pode controlar como você digitar o texto para dentro das células , se você tiver importado as informações de outra fonte, ele pode conter todos os tipos de formatação e caracteres que você não quer na sua planilha. Se os dados estiverem atualmente em todos os tampões e contém a pontuação, você pode usar o VBA, a linguagem de programação embutida , para escrever uma macro rápida que vai mudar a capitalização e remover todos os sinais de pontuação do texto na planilha. Instruções
1

Abra o Excel 2010 planilha onde você deseja remover pontuação e usar um caso diferente . Clique na guia "Desenvolvedor" no topo da tela. Clique no botão "Gravar Macro" , localizado na extremidade esquerda da fita .
2 Tipo

" RemovePunctuationCaps " em que o campo " Nome da macro " . Digite "q" no campo " Tecla de Atalho " . Clique em " OK" para fechar a janela . Clique no botão " Stop" na fita para parar a macro de gravação.
3

Clique no botão " Visual Basic" na fita para iniciar o editor de VBA. Dê um duplo clique em " Módulo 1 ", no lado esquerdo do editor . Se você já tiver criado um módulo neste livro, você terá que clicar no último módulo aberta, em vez de " Módulo 1 ". Você vai ver " RemovePunctuationCaps Sub ( )" no lado direito da janela.
4

Clique no lado direito da janela. Arraste o mouse sobre o texto verde entre "Sub Remove ... " e "End Sub ". Excluir todo este texto , para que os "Sub" e linhas " End Sub" são tudo o que existe.
5

Copie e cole o seguinte código entre o "Sub" e linhas " End Sub " no editor VBA:

Dim rng Como Faixa

Para Cada RNG Em Seleção

rng.Value = StrConv ( rng.Text , vbProperCase )

Próxima RNG

Isto irá estabelecer uma variável chamada " RNG " e fornecer o código necessário para mudar a sua seleção em caso adequado. " . VbLowerCase " Se você preferir usar minúsculas, mudança " vbProperCase " para
6

Digite o seguinte pedaço de código entre o último código e a linha " " End Sub " :

Com CreateObject (" VBScript.RegExp " )

. Padrão = " [^ A -Za- z0 -9 \\ ]" global = True

. Para cada RNG Em Selection.SpecialCells ( xlCellTypeConstants )

rng.Value = . Replace ( rng.Value , vbNullString )

Próxima RNG

End With

Isto irá remover toda a pontuação das células selecionadas .
7

Clique no "X " no canto superior direito do editor para a fechar. Clique na célula ou células , onde você tem o texto que você deseja converter. Pressione " Ctrl- Q" ea macro vai executar a tarefa.