megoldást keresek erre a problémára
-
#2238
Írtam ehhez egy függvényt.
Function kiszerelés(cella As Range)
Dim b As Integer, f As Boolean
f = False
For b = 1 To Len(cella)
If IsNumeric(Mid(cella, b, 1)) Then
f = True
Exit For
End If
Next
If f Then
kiszerelés = Left(cella, b - 1)
Else
kiszerelés = cella
End If
End Function
A füzetedben Alt+F11-re bejön a VB szerkesztő. Bal oldalon kiválasztod a füzetedet, majd Insert menü, Module. Jobb oldalon kapsz egy üres felületet, oda másold be a fenti makrót.
Vegyük, hogy a füzetedben az egyik lapon az A oszlopban vannak a megnevezések, és a B-ben a kiszerelések (már ahol külön vannak)
Címsort feltételezve a C2 képlete legyen =kiszerelés(A2). Ez beírja a megnevezést addig, míg számot nem talál a karakterek között.
A D2 képlete =HA(A2=C2;B2;JOBB(A2;HOSSZ(A2)-HOSSZ(C2))).
A két képletet másold le a többi adatod mellé.
Érdemes a két oszlopot másolni, majd saját magára irányítottan, értékként beilleszteni. Ezután az A és B oszlop törölhető.
Utoljára szerkesztette: Delila1, 2016.08.31. 16:42:01