- D1Rect: Nagy "hülyétkapokazapróktól" topik
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Ivqkzy-: 2. gépem
- Magga: PLEX: multimédia az egész lakásban
- Luck Dragon: Asszociációs játék. :)
- Steven: Sokat utazó kávéfüggők ide!
- eBay-es kütyük kis pénzért
- sziku69: Fűzzük össze a szavakat :)
- droidic: EA GAMES – élő emberrel a supportban 2025 ben
- btz: Internet fejlesztés országosan!
-
LOGOUT
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
-
sztanozs
veterán
válasz
PeLa87 #35312 üzenetére
Másolás, beillesztés, egyedi szűrése
Vagy pedig a következő módon worksheet függvényekkel és/vagy VBA-val: [link]Függvény az egyedi cégnevek előállítására:
=IFERROR(INDEX(Sheet1!$A$1:$A$18, MATCH(0,COUNTIF(INDIRECT("R1C:R[-1]C",FALSE), Sheet1!$A$1:$A$18), 0)),"")
1) Sheet1!$A$1:$A$18 - ezt kell cserélni arra az sheet/oszlopra, amiben az 1.es munkalapon a cégnevek vannak
2) a 2-es munkalapon a leszűrt cégnevek tábla első adat sorába, Pl A2 (fejléc kötelező, ami nem egyezik egyik cégnévvel sem) bemásolni a fenti képletet
3) Array formulaként bevinni (SHIFT+CRTL+ENTER)
4) Minimum annyi sorra lehúzni, amennyi cég lehet (de lehúzható akár 100-200 sorra is, az utolsó egyedi érték után üres mezők lesznek
5) a 2-es munkalap következő oszlopának első adatmezőbe ezt beilleszteni és lehúzni:=IF(INDIRECT("RC[-1]",FALSE)<>"",SUMIF(Sheet1!A:A, INDIRECT("RC[-1]",FALSE),Sheet1!B:B),"")
- INDIRECT("RC[-1]",FALSE) - opcionálisan cserélhető a bal oldali elemre való hivatkozással (B2-be a függvényt beírva A2-re)
- Sheet1!A:A - 1-es munkalapon a cégnév oszlop
- Sheet1!B:B - 1-es munkalapon a összeg oszlop
Új hozzászólás Aktív témák
Hirdetés
- Autós topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Formula-1
- Csak semmi szimmetria: flegma dizájnnal készül a Nothing Phone (3)
- Milyen okostelefont vegyek?
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Megjelent a Poco F7, eurós ára is van már
- Bambu Lab 3D nyomtatók
- Windows 10
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- További aktív témák...
- Csere-Beszámítás! RTX Számítógép játékra! I7 6700 / RTX 2060 6GB / 32GB DDR4 / 250SSD+500HDD
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
- AKCIÓ! nVidia Quadro P4000 8GB GDDR5 videokártya garanciával hibátlan működéssel
- Apple iPhone 16 128GB Kártyafüggetlen 1Év Garanciával
- Bomba ár! Lenovo ThinkPad T490s - i7-8GEN I 16GB I 256SSD I 14" WQHD HDR I Cam I W11 I Gari!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged