Slet række, hvis celle A ikke er udfyldt!

Det her burde klare det - indsæt det i dit Excel-ark's VBA IDE og kør makroen. Jeg har dårlige erfaringer med at slette en masse tomme rækker via VBA, så den kopierer hele skidtet over i et nyt ark.

Public Sub RemoveEmptyRows()
    Dim colRows As Collection, rngRow As Range
    Set colRows = New Collection
   
    For Each rngRow In ActiveSheet.UsedRange
        If Not rngRow.Value = vbNullString Then
            colRows.Add rngRow.Value
        End If
    Next
   
    If colRows.Count > 0 Then
        Dim i As Integer, wksResult As Excel.Worksheet
        Set wksResult = ActiveWorkbook.Sheets.Add
        wksResult.Name = "Resultat"
        For i = 1 To colRows.Count
            wksResult.Cells(i, 1).Value = colRows(i)
        Next
        wksResult.Activate
    End If
End Sub

Hvis du foretrækker en ikke-VBA løsning, så prøv følgende:

Tryk på "A" for at markere hele kolonne A.
Tryk på Data, Filter, Autofilter.
Tryk på pilen i højre side af celle A1 og vælg "Blanks".
Træk med musen ned over de rækkenumre der er farvet blå.
To-tast kombination: Ctrl- for at slette de markerede rækker.
Tryk på pilen i celle A1 og vælg "All".

mvh
Hans

lol... jesus christ det er irriterende når løsningen er så enkel og man ikke selv lige tænker på det :P

til Hans (dkhankun)
Skriv et "svar" så jeg kan sende dig dine point

Now you can make the online request for the access of the new online game series              spades free online which is the part of online game system. Thanks a lot