Espaço indesejado em URLs no Excel 2010

Question

Eu tenho uma lista de 23.000 URLs em uma planilha do Excel, mas eles parecem ter espaços extras, invalidando, assim, as urls.

Eu tentei encontrar e substituir e o excel não reconhece que há um espaço extra na célula.

Este é um exemplo de como colei o URL na célula.

/searchresult.asp/store/store/tskay/08REWA248

mas isso é realmente o que está na célula:

/searchresult.asp/store/store/
            tskay/08REWA248

e o URL está dividido em duas linhas.

Eu posso ter certeza de que o texto não está empacotado na célula e tudo parece estar unido, em uma única linha, mas se eu editar a célula de qualquer maneira, ela volta a ser dividida sobre as células de reboque. / p>

Eu tentei colar no bloco de notas e recebo o seguinte URL:

/searchresult.asp/
            store/store/tskay/08REWA248FE/

Com aspas e o espaço, quando os encontro e os substituo e colo o URL limpo de volta no excel, ele volta direto para a URL antiga com espaços.

Eu também tentei enviar texto para as colunas para dividir o URL e concatená-lo de volta, mas toda vez que ele volta direto para o URL antigo com os espaços extras.

Se eu clicar na célula e excluir o espaço, tudo bem, mas com 23.000 URLs, não posso fazer isso para todos eles e não consigo encontrar nada on-line para ajudar!

Como corrijo isso?

    

Answer 1

Seu texto inclui algumas devoluções ou quebras de linha. Você pode removê-los de uma só vez com um procedimento VBA simples.

Guarde sua planilha antes de seguir as etapas abaixo. (Você vai querer um backup no caso de algo que você não espera e manipula seus dados.)

Primeiro, selecione a coluna inteira de URLs. Em seguida, abra o editor do VBA pressionando Alt + F11 e vá para Insert > > %código%. Cole o seguinte código no campo de texto aberto.

Sub FixURL()
Dim r As Range, URLs() As Variant
Dim rgx As Object
Set r = Selection
'Load contents of selection into an array
URLs = r.Value
'Set up a regular expression object for finding and replacing the line breaks and spaces
Set rgx = CreateObject("vbscript.regexp")
rgx.Global = True
rgx.Pattern = "\r?\n[ \t]+"
'Remove problem text for each URL
For i = LBound(URLs, 1) To UBound(URLs, 1)
    URLs(i, 1) = rgx.Replace(URLs(i, 1), "")
Next i
'Print cleaned up URLs back to sheet
r.Value = URLs
End Sub

Pressione F5 para executar o código. Isso deve remover as quebras de linha e espaços extras para todos os seus URLs.