Innehållsförteckning
Ta bort tomma rader
Det uppenbara sättet att ta bort tomma rader från en datamängd är att helt enkelt sortera data. Detta flyttar de tomma raderna till botten av data och "tar bort" dem. Men vad händer om du vill att de tomma raderna ska tas bort, men du inte vill att datan ska sorteras? VBA.
Följande makro tar bort tomma rader utan någon sortering (stäng av skärmuppdatering för att gå snabbare).
Sub DeleteBlankRows () Dim x As Long With ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell) .Row To 1 Step -1 If WorksheetFunction.CountA (.Rows (x)) = 0 Then ActiveSheet.Rows (x) .Delete End If Next End With End Sub
