| | Post: 117 | Registrato il: 03/10/2015
| Città: ALBAREDO PER SAN MARCO | Età: 43 | Utente Junior | 2003 | | OFFLINE |
|
02/04/2019 21:27 | |
Dim x As Long
x = Range("B63556").End(xlUp).Row
For i = 1 To x
Cells(i, 3) = Application.Clean(Application.Trim(Cells(i, 3)))
Cells(i, 4) = Application.Clean(Application.Trim(Cells(i, 4)))
Cells(i, 5) = Application.Clean(Application.Trim(Cells(i, 5)))
Cells(i, 6) = Application.Clean(Application.Trim(Cells(i, 6)))
Cells(i, 7) = Application.Clean(Application.Trim(Cells(i, 7)))
Cells(i, 8) = Application.Clean(Application.Trim(Cells(i, 8)))
Cells(i, 9) = Application.Clean(Application.Trim(Cells(i, 9)))
Next
On Error Resume Next
Columns(3).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Columns(4).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Columns(5).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Columns(6).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Columns(7).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Columns(8).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
End Sub
Sub Macro1()
Dim x As Long
x = Range("B63556").End(xlUp).Row
For i = 1 To x
Cells(i, 3) = Application.Clean(Application.Trim(Cells(i, 3)))
Cells(i, 4) = Application.Clean(Application.Trim(Cells(i, 4)))
Cells(i, 5) = Application.Clean(Application.Trim(Cells(i, 5)))
Cells(i, 6) = Application.Clean(Application.Trim(Cells(i, 6)))
Cells(i, 7) = Application.Clean(Application.Trim(Cells(i, 7)))
Cells(i, 8) = Application.Clean(Application.Trim(Cells(i, 8)))
Cells(i, 9) = Application.Clean(Application.Trim(Cells(i, 9)))
Next
On Error Resume Next
Columns(3).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Columns(4).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Columns(5).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Columns(6).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Columns(7).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
Columns(8).Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
End Sub
Ciao Alex prova con questa macro e quando il nome è doppio
ROSSIANNA MARIA PAOLA
ROSSI ANNA MARIA PAOLA la funzione concatena non funziona perché trova sempre il primo dato nell'archivio.Ciao Matteo |