VBA: Indsætte linier

Det er Excel ikke?

Du looper over alle rækkerne i A-kolonnen. Sammenligner forrige celle med nuværende celle. Er de uens, indsætter du en række.

Forudsat vi taler Excel

Løsning:

Sub Hurra()

Dim i As Long
Dim j As Long

Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
j = ActiveCell.Row
If j > 1 Then
  For i = 2 To j
    If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
      Rows(i).Select
      Selection.Insert Shift:=xlDown
      i = i + 1
    End If
  Next i
End If
End Sub

Tak for det!

Lige en fodnote martin - skal du ikke ogsaa sige j =j +1 i loopet idet du indsaetter ekstra linjer.
Hvis der indsaettes mange linjer vil de sidste raekker maaske ikke laengere inkluderes.

jo da - godt set!

Martin, vil du skrive hele kodningen igen incl. j=j+1, bare for en sikkerhedsskyld (selvom den første version virkede i mit Excel-ark).