Ciao aykita, benvenuto nel forum.
Questa macro dovrebbe fare quel che chiedi:
- Codice: Seleziona tutto
Sub AddBLine()
Dim dataC As String, I As Long, LastData As Long
'
dataC = "B" '<<< La colonna con la data
LastData = Cells(Rows.Count, dataC).End(xlUp).Row
For I = LastData To 3 Step -1
If Cells(I, dataC).Value <> Cells(I - 1, dataC) Then
Cells(I, dataC).EntireRow.Insert
End If
Next I
End Sub
Va messo in un "Modulo standard" del vba; per questo, partendo da Excel:
-premi Alt-F11 per aprire l'editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame dx del modulo appena creato
Personalizza la riga marcata <<< come da commenti.
Poi torna su Excel e quando i dati sono pronti lancia la macro AddBLine:
-premi Alt-F8
-seleziona AddBLine dall'elenco di macro disponibili
-premi Esegui
Ti suggerisco pero' di verificare se il comando Inserisci Subtotali puo' risolvere altrettanto bene la tua esigenza; anzi "anche meglio", perche' come inserisci le righe di Subtotale puoi anche toglierle.
Ciao