Hirdetés
- GoodSpeed: Keychron V6 Max (HU) Mechanikus vezetéknélküli billentyűzet (Bluetooth, RF, USB)
- Brogyi: CTEK akkumulátor töltő és másolatai
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- sidi: 386-os Chicony gázplazma laptop memóriabővítése
- GoodSpeed: Pillangóhatás: F billentyű meghibásodása -új gamer számítógépasztal
- eBay-es kütyük kis pénzért
- Geri Bátyó: Agglegénykonyha 9 – Az impulzusvásárlás is lehet tudatos
- tordaitibi: Windows rendszerek indítása EFI partíció nélkül
-
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
-
Fferi50
Topikgazda
válasz
Dr. Mózes #53349 üzenetére
Szia!
Ezt a makrót másold be egy modulba:
Function szamkinyer(rng As Range) As Variant
Dim alap, xx As Integer, kiad()ReDim kiad(0)
alap = Split(rng, " ")
For xx = 0 To UBound(alap)
If Val(alap(xx)) <> 0 Then
If kiad(UBound(kiad)) = 0 Then
kiad(UBound(kiad)) = Val(Replace(alap(xx), ",", "."))
Else
ReDim Preserve kiad(UBound(kiad) + 1): kiad(UBound(kiad)) = Val(Replace(alap(xx), ",", ".")) 'szamkinyer = szamkinyer & ";" &
End If
End If
Next
szamkinyer = kiad 'Split(Mid(szamkinyer, 2), ";")
End Function
Úgy működik mint egy beépített függvény, tehát a használata:
=szamkinyer(A1)
Eredmény: egymás melletti két cellába kiírja az A1-ben található számokat.
FONTOS követelmény, hogy a számok szóközök között legyenek, úgy ahogyan a mintádban is írtad.
Mutatom az eredményt:
Üdv.
Ps. természetesen makróbarátként kell menteni.
Még valami: A függvény alkalmas arra is, hogy egy szövegből bármennyi - szóközök között levő - számot kiszedjen egymás melletti cellákba!
Új hozzászólás Aktív témák
- HIBÁTLAN iPhone 13 Pro 128GB Alphine Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3024, 91% Akkumulátor
- GYÖNYÖRŰ iPhone 12 mini 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3398, 94% Akkumulátor
- BESZÁMÍTÁS! 32GB (2x16) G.Skill Ripjaws V 4000MHz DDR4 memória garanciával hibátlan működéssel
- Samsung Galaxy A36 5G / 6/128GB / Kártyafüggetlen / 12Hó Garancia / Bontatlan
- BESZÁMÍTÁS! 64GB (2x32) Samsung 3200MHz DDR4 memória garanciával hibátlan működéssel
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő