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

• #16845 Excelbarat tag atillaahun #16840

  Új Válasz 2013-02-22 14:07:19 #16845

  Ú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

  

  Excelbarat

  tag

  válasz atillaahun #16840 üzenetére

  Hi! Írtam egy makrót:

  Sub torol()
  For i = 1 To ActiveSheet.UsedRange.Rows.Count
  If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row, "A")), Cells(i, "A")) > 1 Then
  a = Cells(i, "A").Value
  For j = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
  If Cells(j, "A").Value = a Then
  Cells(j, "A").EntireRow.Delete
  End If
  Next j
  End If
  Next i
  End Sub
  Kihangsúlyozom hogy ez minden olyan SORT töröl amiben az A oszlopban van azonos és nem hagy egyet sem. (ergo aminél talál legalább kettőt abból egyet sem hagy!)
  használata:
  lapfülre jobb gomb - kód megjelenítése oda bemásolod és nyomsz egy F5-t (vagy felül a zöld kis play nyilacskára katt). és ha minden jól ment akkor csak egyedi értékek maradtak.
  Azért mielőtt megcsinálod csinálj egy másolatot a fájlból mert a makrókat nem lehet visszavonni! (amit lefuttatsz és változtat(töröl) azt már nem tudod előhozni. (persze úgy igen h nem mented el a végeredményt, bezárod és újra megnyitod)

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