Udvælg del af sidste række med data, og slet denne

Du kan bruge følgende VBA-kode til at vælge sidste række med data og slette et antal celleværdier i de ønskede kolonner:



Først finder koden den sidste række med data i kolonne A ved hjælp af End(xlUp)-funktionen. Derefter vælges det ønskede antal celler i de ønskede kolonner (B:G i dette tilfælde) i den sidste række og slettes ved hjælp af Delete-metoden med Shift:=xlToLeft-parameteren, der fjerner cellerne og skubber indholdet af eventuelle tilstødende celler til venstre for at fylde tomrummet.

Sub slet_cellevaerdier()
    Dim sidsteRække As Long
    Dim antalSlettede As Long
    Dim sletAntal As Long
   
    ' Find sidste række med værdier i kolonne A
    sidsteRække = Cells(Rows.Count, 1).End(xlUp).Row
   
    ' Antal celleværdier, der skal slettes
    sletAntal = 4
   
    ' Slet celleværdier fra kolonne B:G i række 13
    antalSlettede = Range("B13:G13").Offset(sidsteRække - 13, 0).Resize(sletAntal, 1).Cells.Count
    Range("B13:G13").Offset(sidsteRække - 13, 0).Resize(sletAntal, 1).ClearContents
   
    MsgBox "Antal slettede celler: " & antalSlettede
   
End Sub