como eliminar exesso de espaço entre palavras no excel

[linoquest]

ola amigos do CdH

tenho uma planilia com uma coluna com formatação condicional que me mostra dados duplicados

entretanto se eu digitar daniela silva com dois espaço acidentalmente e digitar daniela silva com um espaço so que e o correto não vai dar como dado duplicado tem como usar um comando que corrija esse exesso de espaço?

No word isso e feito altomaticamente mas no exel não então como posso fazer isso?

[rariani]

Olá Linoquest, boa tarde!

Você tentou a função ARRUMAR ?

Ela remove todos os espaços do texto exceto os espaços únicos entre palavras.

Dê retorno.

Se a resposta for útil não se esqueça de clicar no polegar verde.

Abraço.

[deejaywesley]

Boa noite!

tentando contribuir! pode usar esse codigo tbem!

Sub Clean_Trim()

Dim CleanTrimRg As Range

Dim oCell As Range

Dim Func As WorksheetFunction

Set Func = Application.WorksheetFunction

On Error Resume Next

Set CleanTrimRg = Range("A1:N40")

If Err Then MsgBox "No data to clean and Trim!": Exit Sub

For Each oCell In CleanTrimRg

oCell = Func.Clean(Func.Trim(oCell))

Next

End Sub

nao se esqueça de mudar esta linha Set CleanTrimRg = Range("A1:N40")

e de criar um botao para rodala...

conforme sua necessidade...

[Karla Felix]

Nossa... precisava muito da informação acima!! TKS!

[linoquest]

Boa noite!

tentando contribuir! pode usar esse codigo tbem!

nao se esqueça de mudar esta linha Set CleanTrimRg = Range("A1:N40")

e de criar um botao para rodala...

conforme sua necessidade...

muito util tem como colocar um atalho pra executar esse codigo

[deejaywesley]

Boa Tarde linoquest

tem sim!

como você nao informo qual é o seu office, supondo que seja o 2007!

la em cima, na guia Desenvolvedor, clique em inserir! ( o quadrinho com uma chave de boca e um martelo)

na janelina que se abre, em controle activex clique no primeiro botao e depois em qualquer parte de sua planilha para crialo!

depois que ele apareceu, clique duas vezes nele, abrira a parte do vba

que estara assim

Private Sub CommandButton1_Click()

End Sub

coloque essa parte do codigo no meio

Dim CleanTrimRg As Range

Dim oCell As Range

Dim Func As WorksheetFunction

Set Func = Application.WorksheetFunction

On Error Resume Next

Set CleanTrimRg = Range("A1:N40")

If Err Then MsgBox "No data to clean and Trim!": Exit Sub

For Each oCell In CleanTrimRg

oCell = Func.Clean(Func.Trim(oCell))

Next

ficando assim

Private Sub CommandButton1_Click()

Dim CleanTrimRg As Range

Dim oCell As Range

Dim Func As WorksheetFunction

Set Func = Application.WorksheetFunction

On Error Resume Next

Set CleanTrimRg = Range("A1:N40")

If Err Then MsgBox "No data to clean and Trim!": Exit Sub

For Each oCell In CleanTrimRg

oCell = Func.Clean(Func.Trim(oCell))

Next

End Sub

feche essa janela do vba....

ao lado do botao inserir que você clico no inicio, tem um por nome de Modo de Design

ele vai estar ativado, clique nele para DESATIVALO!

clique no botao para fazer o teste....

se quiser mudar o botao de lugar, ou qualquer outra ediçao que queira fazer

ative novamente o botao Modo de Design!

Obs: se a guia DESENVOLVEDOR nao tiver visivel. va la em cima a esquerda na bolinha com logo do office, na janela que se abre lado direito embaixo clique em opções do excel

marque o quadrinho

Mostrar guia Desenvolvedor na faixa de opções!

e é isso kkkk:lol:

[RStar2]

Olá, pessoal!

Tem como fazer isso no Word para Android? Tenho q revisar um texto q está c excesso de espaço entre algumas palavras, principalmente, entre palavras e pontuações. Apesar disso se tratar de erro ortográfico, isso tá passando batido para a correção ortográfica do Word...

É um texto grande, um livro. Portanto, alguém sabe dizer como fazer isso no Word para Android?

Grata!

[Edson Luiz Branco]

Bem vinda, @RStar2!

 

O Word para Android é bem mais limitado que seu correspondente para PC e parece não oferecer o modo avançado do Localizar e Substituir para usar coringas especiais.

Uma maneira de contornar seria usa o Localizar para, digamos, encontrar 2 ou mais espaços e pedir para substituir por 1 só e repetir esse procedimento até consumir todos. Acaba convergindo rapidamente em poucas passadas.

Entre pontuações, vírgulas, etc. a mesma coisa. Localize espaço e ponto e peça para substituir só por ponto.

Se quer eliminar espaço antes de uma marca de parágrafo (final da linha) ou no começo, use o coringa ^p (circunflexo +p) para representar o caractere de final de linha (o pi ou pé-de-mosca), esse é aceito.

[Jimmy 2]

A título de colaboração apresento uma alteranativa, que segue numa linha um pouco diferente da apresentada pelo @deejaywesley .

 

Com a macro abaixo, inserida no evento CHANGE da planilha, as correções de retirada de espaços ocorre no momento da digitação do nome, assim que é dado o ENTER. Dessa forma, a planilha está sempre "arrumadinha".

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Set Intervalo = Intersect(Target, Range("C1:C1000,L10:N20,Q20:Q25"))
    If Not Intervalo Is Nothing Then
        For Each Cel In Intervalo
            Aux1 = Application.WorksheetFunction.Trim(Cel.Value)
            If Cel.Value <> Aux1 Then Cel.Value = Aux1
        Next
    End If
    Set Intervalo = Nothing
End Sub

 

Eu inventei 3 intervalos (Ranges) aleatórios sobre os quais deseja-se executar a correção de espaços.

Eles estão na segunda linha do código, em negrito vermelho, e devem ser alterados para a necessidade da planilha.

 

Tudo o que for digitado dentro desses intervalos, vai ter os espaços repetidos, e espaços no início e final, retirados no momento do ENTER após digitação.

 

Tudo o que for digitado fora desses intervalos, ficará da forma que foi digitado.

 

Jimmy San Juan