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

• #26666 Delila_1 veterán -KP- #26665

  Új Válasz 2015-04-24 09:58:02 #26666

  Ú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 -KP- #26665 üzenetére

  Természetesen.

  Sub Legnagyobb()
  Dim sor As Long, usor As Long
  usor = Range("A" & Rows.Count).End(xlUp).Row
  
  For sor = usor To 2 Step -1
  If Len(Cells(sor, 1)) = 8 Then
  If Left(Cells(sor, 1), 6) = Left(Cells(sor - 1, 1), 6) Or _
  Cells(sor - 1, 1) = "" Then
  Rows(sor - 1).EntireRow.Delete
  End If
  End If
  Next
  End Sub

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