VBA Excel: uprava kodu na mazani duplicitnich zaznamu Vyřešeno
Napsal: 17 bře 2011 16:22
Jedna se o odmazavani obsahu bunek v pripade, kdy maji dve bunky pod sebou stejne hodnoty.
Tedy jak je videt v kodu, pokud je nad aktualni bunkou bunka s hodnotou shodnou s hodnotou v bunce aktualni ma byt hodnota v aktualni bunce vymazana.
bohuzel problem je s nasledujici casti
kdy dochazi k erroru z duvodu, ze pri prvnim provedeni kontroluje neexistujici "nadbunku"
Jak se tomuto vyhnout? Da se postupovat opacne? Tedy prochazet radky od spodu? Jak pak bude vypada kod? Diky
Tedy jak je videt v kodu, pokud je nad aktualni bunkou bunka s hodnotou shodnou s hodnotou v bunce aktualni ma byt hodnota v aktualni bunce vymazana.
Kód: Vybrat vše
With Worksheets("List1")
Set BlkA = .Range(("m1:m") & .Cells(.Rows.Count, "d").End(xlUp).Row)
End With
For Each CllA In BlkA.Cells
frstAddr = CllA.Address
Do
If (CllA.Value) = (CllA.Offset(-1, 0)) Then
CllA.Value.ClearContents
End If
Loop While CllA.Address <> frstAddr
Next CllA
bohuzel problem je s nasledujici casti
Kód: Vybrat vše
If (CllA.Value) = (CllA.Offset(-1, 0)) Then
kdy dochazi k erroru z duvodu, ze pri prvnim provedeni kontroluje neexistujici "nadbunku"
Jak se tomuto vyhnout? Da se postupovat opacne? Tedy prochazet radky od spodu? Jak pak bude vypada kod? Diky