-
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
-
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
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Eladó Steam kulcsok kedvező áron!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Új Apple iPhone 16 Pro Max 256GB, Kártyafüggetlen, 1 Év Garanciával
- Eladó Google Pixel 9 Pro 16/256GB / Ajándék fólia és tok! / Akku 100% / 24 hó jótállás
- HP Thunderbolt-dokkoló, 120W G4 (4J0A2AA)
- REFURBISHED - Lenovo ThinkPad 40A9 USB-C Dock (ELKELTEK) - CSAK RENDELÉSRE
- Xiaomi 14T Pro 512GB,Újszerű,Dobozával,12 hónap garanciával
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Fferi50
