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

• #26656 Delila_1 veterán -KP- #26649

  Új Válasz 2015-04-23 14:47:20 #26656

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

  Az Fferi által említett makró:

  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 Left(Cells(sor, 1), 6) = Left(Cells(sor - 1, 1), 6) Or _
  Cells(sor - 1, 1) = "" Then
  Rows(sor - 1).EntireRow.Delete
  End If
  Next
  End Sub

  Az első oszlopban többször szereplő programneveket gyomlálja ki.
  Nem említetted, hogy vannak-e üres sorok a tartományban. Beleírtam, hogy azokat is törölje.

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