-
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
-
-
Delila_1
veterán
válasz
ztoldy
#38305
üzenetére
A
Range("D" & sor & ":E" & sor).MergeCells = Truesor fölé írd be:
Cells(sor, "D") = Cells(sor, "D") & " " & Cells(sor, "E")Ha az összefűzés után nincs szükséged az E oszlop tartalmára, akkor
Sub Osszevonas()
Dim sor As Long
Application.DisplayAlerts = False
Application.ScreenUpdating = False
sor = 2
Do While Cells(sor, "D") <> ""
Cells(sor, "D") = Cells(sor, "D") & " " & Cells(sor, "E")
Cells(sor, "E") = ""
sor = sor + 1
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub -
Delila_1
veterán
válasz
ztoldy
#38302
üzenetére
Modulba
Sub Osszevonas()
Dim sor As Long
Application.DisplayAlerts = False
Application.ScreenUpdating = False
sor = 2
Do While Cells(sor, "D") <> ""
Range("D" & sor & ":E" & sor).MergeCells = True
sor = sor + 1
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubHa nincs címsorod, a sor=2 helyett írj sor=1-et.
-
Delila_1
veterán
válasz
ztoldy
#27352
üzenetére
Mi különbözteti meg ezeket a számokat a többitől? Kisebbek, vagy nagyobbak az átlagnál? Az A oszlop azonos sorában lévő adat szerint kell ezeket kihagyni az összegzésből?
A fenti, és hasonló esetekben a SZUMHA, vagy több feltételnél a SZUMHATÖBB függvényt alkalmazhatod.
-
Delila_1
veterán
válasz
ztoldy
#22528
üzenetére
Nézd meg a DARABTELI függvényt, azzal megoldhatod. Egy oszlopban felsorolod a lehetséges dobozszámokat, legyen pl. X1-tól X valahányig.
Y1 képlete =darabteli(B:B;X1). Ezt végig lemásolod az X adataid mellé. Ahol nulla értéket kapsz, ott az a doboz nem szerepel a B oszlopban.
A nullánál nagyobb értékek azt az értéket adják, hogy a doboz hányszor szerepel a B-ben.
Új hozzászólás Aktív témák
- Debrecen és környéke adok-veszek-beszélgetek
- VR topik
- HiFi műszaki szemmel - sztereó hangrendszerek
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Projektor topic
- BestBuy topik
- Gumi és felni topik
- Miskolc és környéke adok-veszek-beszélgetek
- LEGO klub
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- További aktív témák...
- Gyermek PC játékok
- Eladó Steam kulcsok kedvező áron!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- BESZÁMÍTÁS! MSI B450M R5 5600X 16GB DDR4 512GB SSD RX 9060 XT 16GB Rampage SHIVA ADATA 650W
- ÁRGARANCIA!Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RTX 5050 8GB GAMER PC termékbeszámítással
- Realme 9 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- 157 - Lenovo LOQ (15ARP9) - AMD Ryzen 7 7435HS, RTX 4060 (ELKELT)
- Honor 400 Lite / 8/256GB / Kártyafüggetlen / 12Hó Garancia
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest


Fferi50
