[Tasos]

Καλημέρα!
Θα συμφωνήσω με τους Θανάσηδες και τον Σπύρο στο θέμα του συγκεντρωτικού πίνακα που
σίγουρα μπορεί να μελετηθεί σε πολύ λιγότερο χρόνο από ότι το κεφάλαιο VBA & μοντέλο αντικειμένoυ Excel.

Η γνώμη μου είναι ότι τα συγχωνευμένα κελιά πρέπει να αποφεύγονται όσο γίνεται.
Προκαλούν αρκετά προβλήματα τόσο σε φύλλα εργασίας (ειδικά αν περιέχουν τύπους πίνακα) όσο και στον κώδικα VBA που αναφέρεται σε κελιά.

Πιστεύω ότι η φίλη μας Ντέμη καλύφθηκε από τις απαντήσεις που δόθηκαν.

Ωστόσο αν ήθελα να αφαιρέσω τα διπλότυπα από τις στήλες A:B παραδείγματος της θα χρησιμοποιούσα τον παρακάτω κώδικα:

Option Explicit

'Έστω ότι τα δεδομένα ξεκινούν από το κελί A1
Sub RemoveDuplicates()
    Dim i As Long, rng As Range
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Set rng = Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row)
    For i = rng.Count / 2 To 2 Step -1
        If Cells(i, 1).Value = Cells(i - 1, 1).Value Then rng.Rows(i).ClearContents
    Next
    Application.Calculation = xlCalculationAutomatic
End Sub

Φιλικά

Τάσος