Macro per Excel

[axell]

ciao, sto cercando di scrivere una macro che mi cancellasse la riga dove il valore di una cella è diverso da quello della cella sucessiva e diverso dalla cella precedente.
La condizione deve essere vera per entrambe le colonne A e B.
Esempio:

......A..........B.........
1 1254.......455 ----------------> Da cancellare
2 1478.......124 ----------------> Da cancellare
3 1111.......233
4 1111.......233
5 1111.......233
6 1236.......451 ----------------> Da cancellare
7 1121.......841
8 1121.......841
9 1680.......362 ----------------> Da cancellare
10 1423.....235 ----------------> Da cancellare

qualche consiglio?

grazie
ciao

[MinM]

Ciao questo fa + o - al caso tuo
certo non cancella il primo e l'ultimo
pero' fa il resto e facilmente lo puoi abbinare alle colonne

Ciao

Dim i As Integer
Dim a, a1, a2, aa, ab, ac As String

For i = 2 To 100
a = "a" & i - 1
a1 = "a" & i
a2 = "a" & i + 1

aa = Sheet1.Range(a)
ab = Sheet1.Range(a1)
ac = Sheet1.Range(a2)

If ab <> aa And ab <> ac Then

Sheet1.Range(a1).Delete

End If

Next i

End Sub