Sætte streg under hvert afsnit i excel

Sub B_Kolonne()
  For I = 9 To Range("B65536").End(xlUp).Row
  If Range("B" & I + 1) <> Range("B" & I) Then
  With Range("B" & I & ":E" & I).Borders(xlEdgeBottom)
        .LineStyle = xlDot
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    End If
  Next
End Sub

Jeg synes desværre ikke at der sker noget

Du kan måske ikke se den den er stiplet, her er en den kan du se

Sub B_Kolonne()
  For I = 9 To Range("B65536").End(xlUp).Row
  If Range("B" & I + 1) <> Range("B" & I) Then
  With Range("B" & I & ":E" & I).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    End If
  Next
End Sub

Det virker fint nu

bare lige en ting. Det skulle gerne virke sådan at jeg enten kører makroen for at se streger baseret på B kolonnen først. Og så måske på D kolonnen senere, altså når der allerede er streger fra B-makroen.

Hvordan laver man makroen så den fjerner alle eksisterende streger før den køres ?

Sub B_Kolonne()

' Gamle streger fjernes
    Range("B9:E" & Range("B65536").End(xlUp).Row).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
   
    'Nye streger tilføjes
    For I = 9 To Range("B65536").End(xlUp).Row
        If Range("B" & I + 1) <> Range("B" & I) Then
            With Range("B" & I & ":E" & I).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlMedium
                .ColorIndex = xlAutomatic
            End With
        End If
    Next
End Sub

Perfekt

tak for hjælpen...

Kom med et svar, så får du point.

et svar ;-))