Hirdetés

Keresés

Ú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