makro

Du kan ikke blot rette den eksisterende makro. Du kan ikke bruge metoden i den  makro til formålet. Det er nødt til at blive gjort ved at undersøge cellerne i tabellen. En celle, som er tom, indeholder faktisk noget alligevel, nemlig en End of Cell marker (kan ses når formateringsmærker er vist). En sådan er en string med længden 2. Det kan bruges til at tjekke cellerne.

Forudsætningen for, at du kan slette rækker er, at der ikke er lodret flettede celler i tabellen. Makroen, jeg har lavet, forudsætter at markøren er i tabellen.

Sub DeleteRowsWithEmtpyCell2()
    Dim orow As Row
   
    'assume that the selection is in the table to handle
    For Each orow In Selection.Tables(1).Rows
        If orow.Cells.Count >= 2 Then
            If Len(orow.Cells(2).Range.Text) = 2 Then
                orow.Delete
            End If
        End If
    Next orow
   
End Sub

jeg kan ikke gennemskue, hvad makroen gør, men det virker perfekt :)
Tak for hjælpen...