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

• #31151 Delila_1 veterán Nowitzki #31146

  Új Válasz 2016-03-28 07:37:03 #31151

  Ú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 Nowitzki #31146 üzenetére

  Sub Torles()
  Dim sor As Long, usor As Long
  
  usor = Range("A" & Rows.Count).End(xlUp).Row
  
  For sor = usor To 1 Step -1
  If Application.WorksheetFunction.CountIf(Columns(1), Cells(sor, "A")) > 1 Then
  Rows(sor).EntireRow.Delete Shift:=xlUp
  End If
  Next
  End Sub

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