-
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
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Fallout 4 Pip-Boy Edition eladó
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Apple Watch Series 10 GPS+Cellular 46mm, Újszerű, 1 Év Garanciával
- Beszámítás! Apple Mac Mini 2020 M1 8GB 512GB számítógép garanciával, hibátlan működéssel
- Lenovo ThinkBook 14s Yoga 2-in-1 üzleti laptop tollal ÚJ Állapot i7-1165G7 16gb ram 512ssd FHD Gari
- 5G LTE! Microsoft Surface Pro 8 i7-1185G7 16GB 512GB 1 év garancia
- 269 - Lenovo Yoga Pro 9 (16IAH10) - Intel Core U9 285H, RTX 5060
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50