Ich habe einen Bericht, den ich jeden Tag ziehe, der in einem sehr unangenehmen Format abgelegt ist. Es enthält eine variable Zeilenanzahl von 4 Spalten, die in inoffiziellen Tabellen basierend auf dem Namen jedes Mitarbeiters angeordnet sind.

Was ich habe, ist ein Mitarbeitername in Spalte B, der 2 leeren Zeilen darüber und 1 leeren Datenzeile darunter vorangestellt ist.

Was ich erreichen möchte, ist eine Schleife durch die Daten, das Identifizieren von Zellen in Spalte B <>, das Löschen der gesamten 2 Zeilen unter dieser Zelle und das Löschen der gesamten 1 Zeile über dieser Zelle.

Below ist was ich bisher habe. nicht viel

Sub test()

Dim currentSht As Worksheet
Dim startCell As Range
Dim lastRow As Long
Dim lastCol As Long
Dim i as integer

Set currentSht = ActiveWorkbook.Sheets(1)

Set startCell = currentSht.Range("A1")
lastRow = startCell.SpecialCells(xlCellTypeLastCell).Row
lastCol = startCell.SpecialCells(xlCellTypeLastCell).Column

For i = lastRow To 1
    If Cells(i, "B").Value <> "" Then


End Sub