-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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) -
Delila_1
Topikgazda
válasz atillaahun #16840 üzenetére
A darabteli függvény minden adatod mellé odaírja, hány db van belőle a kérdéses oszlopban. [=darabteli(A:A;A1)].
Erre az oszlopra teszel egy autoszűrőt, és kiszűröd az 1-nél nagyobbakat.Kijelölöd az összes látható sort, kitörlöd.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Gaming notebook topik
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- Linux kezdőknek
- sziku69: Fűzzük össze a szavakat :)
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Vezetékes FÜLhallgatók
- Magisk
- Mibe tegyem a megtakarításaimat?
- Samsung LCD és LED TV-k
- ASUS notebook topic
- További aktív témák...
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Canva Pro előfizetés - 1 éves
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest