Come eliminare spazi superflui da un file excel

[vmaienza]

Vi spiego, ho un file excel importato da un file word.
Tuttavia durante l'importazione, nelle celle risultano degli spazi tra le parole che danno non pochi problemi.
Ho gia provato con le funzioni e con sostituisci ma niente.
Inoltre la cella non si adatta al contenuto e molte volte le scritte nelle celle vengono "troncate" dalla cella e non si leggono.
Sapete aiutarmi?

http://www.filedropper.com/car18amstoria-dal1940al1979

Screenshot: http://www.filedropper.com/immagine_3

Il file di partenza era questo:http://mininterno.net/linkto.asp?id=0000A73037827b8871484a378c79864a6e7a687e7e728677854c6e8772418170486974723e52688130717c7a463a70892969777f8f7378243e3e4f79713250454d363361793a384d384749787968

[Anthony47]

Credo si possa fare gran parte del lavoro con questa macro:

Codice: Seleziona tutto

Sub Ripara()
Dim wArr, cReg As Range
Set cReg = Range("A1").CurrentRegion
wArr = cReg.Value
For i = LBound(wArr) To UBound(wArr)
    For j = LBound(wArr, 2) To UBound(wArr, 2)
        If Not IsNumeric(wArr(i, j)) Then
            wArr(i, j) = WorksheetFunction.Trim(Replace(Replace(wArr(i, j), Chr(160), " ", , , vbTextCompare), Chr(10), " ", , , vbTextCompare))
        End If
    Next j
Next i
cReg = wArr
End Sub

Va messa in un Modulo standard del vba e poi eseguita.

Potrebbe essere necessario formattare le celle con Testo-a-Capo (tab Allineamento nella procedura di Formato celle).

Ciao

[vmaienza]

Wow, fantastico.
Ho risolto dopo mesi e mesi di tentativi.
Ottima macro.
La salvo in una teca di vetro