[gutguy]

Inviato da Alexsandra

[SPOILER]

Sub prova1()
Dim ultimaC, Mstringa As String
Dim Ccol As Range
Dim Pspazio As Integer

'togliere Hyperlinks
Cells.Hyperlinks.Delete
'togliere il carattere [4]
Columns(3).Replace What:="[*]", Replacement:=""
'allineare a Dx
Columns("C:F").HorizontalAlignment = xlRight
' formattazione generale
Columns("C:D").NumberFormat = "General"
' 2 decimali finali
Columns("F").NumberFormat = "0.00"
'cambiare il punto con le virgole
For Each cell In ActiveSheet.UsedRange
If InStr(1, cell.Text, ".") > 0 Then
cell.Value = CDbl(Val(cell.Text))
End If
Next

'togliere gli spazi
For Each oCell In Range(Cells(1, "B"), Cells(Rows.Count, 1).End(xlUp))
    With oCell
        .Value = Trim(.Value)
    End With
Next oCell

'togliere doppioni nella cella
ultimaC = Range("B1").End(xlDown).Address
For Each Ccol In Range("B2:" & ultimaC)
Mstringa = Ccol
Pspazio = InStrRev(Mstringa, " ", -1)
If Pspazio <> 0 Then
k = Left(Mstringa, Pspazio - 1)
k1 = Mid(Mstringa, Pspazio + 1)
If k = k1 Then
Ccol = k
End If
Else
End If
Next
End Sub

[SPOILER]
funziona su qualsiasi foglio indipendentemente dal nome e cerca da sola l'inizio dei dati e la loro fine per scorrere tutta la tabella.
provala e fai sapere

ti ringrazio tanto
ho però ancora qlc problemino come vedi
prima: http://tinyurl.com/zobxqlp
dopo: http://tinyurl.com/zujuggs
ti chiedevo anche se la macro toglieva le immagini...
non vorrei apparire come un rompiscatole