Kaksoiskappaleiden poistologiikka muuttunut?

Anonyymi

Minulla on työkirjassa pari tuhatta nimeä yhteystietoineen. Haluaisin poistaa mahdolliset kaksoiskappaleet esimerkiksi puhelinnumeron perusteella. Valitsen 'Poista kaksoiskappaleet' ja sieltä sarakkeen, jonka perusteella poisto tehdään. Excel poistaa nyt myös sellaisetkin rivit, joissa ei ole puhelinnumeroa ollenkaan, koska se ilmeisesti tulkitsee että tyhjät solut ovat kaksoiskappaleita. Mielestäni se ei ole ennen toiminut näin, vaan poisto on koskenut soluja, joissa on kaksi tai useampi sama arvo. Oletteko muut huomanneet saman ja mitä asialle voisi tehdä?

1 kommenttia

Vastaukset

  • Sub PoistaTuplat()

    Dim Alue As Range
    Dim TuplaAlue As Range
    Dim Solu As Range
    Dim Vika As Long
    On Error GoTo virhe
    'aktiivisen solun sarake hakusarakkeena
    Set Alue = Range(Cells(1, ActiveCell.Column), Cells(Cells(65536, ActiveCell.Column).End(xlUp).Row, ActiveCell.Column))
    Alue.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Set TuplaAlue = Nothing
    For Each Solu In Alue
    If Solu.EntireRow.Hidden Then
    If Not Solu = "" Then
    If TuplaAlue Is Nothing Then
    Set TuplaAlue = Solu
    Else
    Set TuplaAlue = Union(TuplaAlue, Solu)
    End If
    End If
    End If
    Next
    If Not TuplaAlue Is Nothing Then
    TuplaAlue.EntireRow.Delete
    Else
    Exit Sub
    End If
    ActiveSheet.ShowAllData
    Exit Sub
    virhe:
    MsgBox "Valitse sarake klikkaamalla haluamasi sarakkeen solua tietoalueelta"
    End Sub

    Keep EXCELing
    @Kunde

Ketjusta on poistettu 0 sääntöjenvastaista viestiä.