Új hozzászólás Aktív témák

• #53352 Fferi50 Topikgazda Dr. Mózes #53349

  Új Válasz 2024-10-04 13:20:09 #53352

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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