Új hozzászólás Aktív témák

• #39587 lappy őstag RAiN91 #39586

  Új Válasz 2018-11-10 17:06:04 #39587

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz RAiN91 #39586 üzenetére

  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

Új hozzászólás Aktív témák