venerdì 28 febbraio 2014

giovedì 6 febbraio 2014

macro elimina righe

per eliminare righe alterne su excel:


Sub macroeliminarighe()
   For i = 10 To 2 Step -2
     ActiveSheet.Rows(i).EntireRow.Delete
  Next i
End Sub

posizionati sulla cella A1 elimina tutte le righe pari fino alla riga 10
(   For i = 9 To 1 Step -2
     ActiveSheet.Rows(i).EntireRow.Delete
  Next i) per eliminare le righe dispari