Public Sub m()
Dim ur As Long
Dim lng As Long
ur = ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
For lng = ur To 2 Step -1
Rows(lng).Insert Shift:=xlDown
Next
End Sub
Questo è il codice da inserire nel VBA di Excel per ottenere righe vuote alternate a quelle piene in un foglio di calcolo del tipo:
1
2
3
4
a così
1
2
3
4
Come si deve procedere? Cliccare sulla scheda in basso di excel come riportato in figura
, visualizzare il codice,
Inserire un modulo come si vede in figura ed incollarci il codice qui sopra. A questo punto si ritorna nel foglio di excel Strumenti>Macro>Macro trovare la voce m ed eseguire la macro. Il gioco è fatto
