Inserire due righe dopo al cambio di valore con Vba

Question

Un saluto a tutti,

a partire dalla cella G6, vorrei inserire 2 righe al cambio di valore

Lun

Lun

Lun

inserire 2 righe vuote

Mar

Mar

Mar

inserire 2 righe vuote

Mer

Mer

Mer

Sto provando il seguente codice, ma va in errore. Mi potete (nuovamente) aiutare? Grazie

Sub AddBlankRows()

Dim i As Long, col As Long, lastRow As Long

col = 7 'Colonna gg

lastRow = Cells(6, col).End(xlUp).Row

For i = lastRow To 2 Step -1

If Cells(i - 1, col) <> Cells(i, col) Then

Range(Cells(i, col).EntireRow, Cells(i + 2, col).EntireRow).Insert shift:=xlDown

End If

Next i

End Sub

Giovanni

Answer 1

ciao

Sub inserisciduerighe()

Dim Rng As Range

Dim WorkRng As Range

On Error Resume Next

Set WorkRng = Range("G6:G1000")

Application.ScreenUpdating = False

For i = WorkRng.Rows.Count To 2 Step -1

    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then

        WorkRng.Cells(i, 1).EntireRow.Insert

         WorkRng.Cells(i, 1).EntireRow.Insert

         End If

Next

Application.ScreenUpdating = True

End Sub

Answer 2

Grazie Tante.

Risolto.

Ciao Giovanni