Здравей,
Следният код изтрива всички четни редове, които са селектирани от потребителя:
Sub DeleteEvenRows()
Dim rngRow As Range, rng2Del As Range
For Each rngRow In Selection.Rows
'In the next row, use "= 1" to delete odd numbered rows
'or "= 0" to delete even numbered rows
If rngRow.Row Mod 2 = 0 Then
If rng2Del Is Nothing Then
Set rng2Del = rngRow.EntireRow
Else
Set rng2Del = Union(rng2Del, rngRow.EntireRow)
End If
End If
Next rngRow
rng2Del.Delete Shift:=xlShiftUp
End Sub
Кодът трябва да се сложи във VBA едитора на Еxcel (alt + F11), Insert => Module.
За да пуснеш кода в Еxcel, трябва да си изкараш Developer таба (ако го няма сред менютата горе). Това става чрез File=>Options=>Customise ribbon=>Developer.