-
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
-
Mutt
senior tag
Szia,
Excel 2010-től van Power Query, ahol 5+1 lépés az egész:
0. Alakítsd át a tartomány táblázattá (nem kötelező ha másik fájlból akarsz dolgozni)
1. Olvasd be az adatsort
2. Add Column -> Index column
3. Kijelölöd az újonnan létrejött oszlopot, majd Transform -> Unpivot -> Unpivot by other columns

4. Majd sorba rendezed előbb a fejléc alapján, majd az index alapján.
5. Törlöd a felesleges 2 oszlopot.
6. Visszatöltöd az eredményt Excelbe. Home -> Close and load -> .. to..üdv
-
-
január
=SZORZATÖSSZEG((HÓNAP(A2:A8)=1)*(C2:C8))/SZORZATÖSSZEG((HÓNAP(A2:A8)=1)*(B2:B8))február
=SZORZATÖSSZEG((HÓNAP(A2:A8)=2)*(C2:C8))/SZORZATÖSSZEG((HÓNAP(A2:A8)=2)*(B2:B8))stb, stb.
Csak a képlet feltételében szereplő értéket (ami a hónap sorszáma) kell 2 helyen módosítani, illetve azokat a cellákat, amelyekbe ezek a képletek kerülnek, azokat %-ra kell formázni.
-
Nem kell az egyenlőségjelek, meg a macskakörmök. Így legalább nem hibát dob, bár abban nem vagyok biztos, hogy úgy fog működni, ahogy azt szeretnéd, de legalább szintaktikailag helyes lesz a képlet.
=IF(J5>=1;DATE(YEAR(I5)+J5;MONTH(I5);DAY(I5));DATE(YEAR(I5);MONTH(I5)+(J5*12);DAY(I5)))
-
Delila_1
veterán
Ha rendezheted az adatokat, akkor a "szemét" sorok elkülönülnek a CAL-lal kezdődő soroktól, és könnyen törölhetőek.
Ha ez nem tehető meg, ez a rövid kis makró elintézi:Sub torl()
sor = 1
Do While Cells(sor, 2) <> ""
Cells(sor, 2).Select
If Left(Cells(sor, 2), 3) <> "CAL" Then
Selection.EntireRow.Delete
sor = sor - 1
End If
sor = sor + 1
Loop
End Sub
Új hozzászólás Aktív témák
- The Division 2 (PC, XO, PS4)
- Fejhallgató erősítő és DAC topik
- Assetto Corsa Rally
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Samsung Galaxy S24 - nos, Exynos
- Arc Raiders
- Kezdő fotósok digitális fényképei
- Genshin Impact (PC, PS4, Android, iOS)
- Hobby elektronika
- Eredeti játékok OFF topik
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MS SQL Server 2016, 2017, 2019
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- The Elder Scrolls Online Imperial Collector s Edition
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Bomba ár! HP EliteBook 820 G3 - i5-6GEN I 16GB I 256GB SSD I 12,5" FHD I Cam I W11 I Garancia!
- Apple iPhone 13 /128GB /Kártyafüggetlen / 12 Hó Garancia / akku: 85%
- Samsung Galaxy Z Flip6 12/512GB - ÚJSZERŰ, Kártyafüggetlen, Kék - 1 év garancia
- darkFlash GR12 Darkstorm Blue/Green
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50