Utilizzo VBA al posto della funzione CERCA.VERT ()

 

Vedo di andare avanti... ;-)

... e avanti andiamo.

Questa(che deve essere eseguita *DOPO* aver fatto girare la prima), ti lascierà le righe con Nome/cognome, Data di nascita e residenza *UNIVOCI*. Vuol dire che se Mario Rossi compare tre volte con gli stessi dati, te ne lascia uno solo. Se la data o la residenza di uno dei mario Rossi è diversa, te ne lascierà due:

Public Sub mEliminaDoppi()

    Dim lng As Long
    Dim lRiga As Long
    Dim sh As Worksheet
    Dim lRip As Long
   
    Set sh = ThisWorkbook.Worksheets("Foglio1")
    Application.ScreenUpdating = False
   
    With sh
        'trovo l'ultima cella con un valore in colonna A
        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row
        'aggiungo una colonna
        .Range("A:A").Insert Shift:=xlToRight
        'concateno le celle B:D(ho una colonna in più
        'e la residenza è in D)
        .Range("A2").Value = "=CONCATENATE(B2 & C2 & D2)"
        'faccio l'auto completamentio in colonna A
        .Range("A2").AutoFill Destination:=Range("A2:A" & lRiga)
       
        'ciclo le righe partendo dall'ultima
        For lng = lRiga To 2 Step -1
            'conto quante volte ho la stessa cosa in A
            lRip = Evaluate("=COUNtIF(" & "A2:A" & lRiga & "," & _
                """" & .Range("A" & lng).Value & """" & ")")
            'se ne ho più di una, elimino la riga
            If lRip > 1 Then
                .Rows(lng & ":" & lng).Delete Shift:=xlUp
            End If
        Next
        'elimino la colonna A che non mi serve più
        .Columns("A:A").Delete Shift:=xlToLeft
    End With
   
    Application.ScreenUpdating = True
   
    Set sh = Nothing

End Sub

Fai alcune prove su copie del file originale e vedi se va bene nel tuo contesto.

Accidenti, oggi ho scoperto che anche le lettere minuscole accentate si possono rendere accentate in maiuscolo senza utilizzare l'apostrofo(apice).

Pensa che non so come si ottiene da tastiera la lettera accentata PATTÈ, l'ho dovuta copiare e incollare altrimenti l'avrei scritta PATTE' come avrebbero fatto in molti.

Quindi, fin qui, tutto OK. interviene sia sulla colonna A del Cognome e anche sulla  C della Residenza.

Ho cercato di scoprire cosa potesse fare il tuo codice riga per riga ma non essendoci un commento ci ho rinunciato, non posso dire che ho fatto un atto di fede perchè ho voluto provarla mettendo blank davanti ... in fondo, mettendo lettere minuscole intercalate a maiuscole e con accenti finali ma funziona alla grande. Direi eccezionale, ma sempre con il tarlo di prendere il pacchetto così com'è.

Pertanto fino qui, OK. Se vuoi darmi in pasto un altro pezzo di codice per proseguire, lo aspetto con ansia.

Intanto commento la parte che immagino risulti *ostica* del codice precedente:

    With sh
       
        'trovo l'ultima cella con un valore in colonna A
        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row
        'definisco il range con nomi e cognomi
        Set rng = .Range("A2:A" & lRiga)
       
        'ciclo in range; per ogni cella nel range
        For Each c In rng
            'pulisco le due variabili
            s = ""
            v = ""
            'in c
            With c
                'divido la stringa della cella in tante parti
                'utilizzando lo spazio " " come separatore
                v = Split(.Value, " ")
                'per ogni parte ottenuta
                For lng = 0 To UBound(v)
                    'se la parte è diversa da stringa vuota
                    If v(lng) <> "" Then
                        'aggiungo la parte alla variabile s
                        s = s & v(lng) & " "
                    End If
                Next
                'modifico il valore della cella
                'mettendo tutto maiuscolo la stringa s
                'ed eliminando l'ultimo carattere
                '(nello specifico è uno spazio che so
                'di avere nella stringa)
                .Value = UCase(Mid(s, 1, Len(s) - 1))
                'pulisco le variabili
                s = ""
                v = ""
                'divido la stringa della colonna C
                '(Offset(0,2)
                v = Split(.Offset(0, 2).Value)
                'ripeto quanto fatto per la colonna A
                For lng = 0 To UBound(v)
                    If v(lng) <> "" Then
                        s = s & v(lng) & " "
                    End If
                Next
                .Offset(0, 2).Value = UCase(Mid(s, 1, Len(s) - 1))
            End With
        Next

    End With

Per le accentate, vedi qui: http://www.asciitable.it/asciiext.asp

ALT+0192 ti darà À, ecc.

Vedo di andare avanti... ;-)