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

• #39588 Delila_1 veterán RAiN91 #39586

  Új Válasz 2018-11-12 08:30:05 #39588

  Ú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

  

  Delila_1

  veterán

  válasz RAiN91 #39586 üzenetére

  Ha a nem üres sorokban minden cella ki van töltve, a tartomány (jelen esetben A1:J1000) üres sorait 1 lépésben törölheted.

  Range("A1:J1000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlUp

• #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