bude súbor , bude pomoc
=============================================
dopísané 18.2. 17:00
pripájam súbor s riešením
ak by ste nevedeli, ako si funkciu spraviť ako doplnok (ak by ste to potrebovali, nie je to nutné pre jednorázové záležitosti), tak vám pomôžem
ak potrebujete použiť len v určitých zošitoch, tak si tú funkciu dajte do modulu v konkrétnom zošite, princíp nájdete napr. v článku
Funkcia pre výber čísiel z reťazca
.
Public Function RozdelCezPluska(BunkaVzorec) As String
Application.Volatile True
Dim PocetPlus As Byte
Dim i As Byte
Dim Vzorec As String
RozdelCezPluska = ""
Vzorec = Mid(BunkaVzorec.Formula, 2)
PocetPlus = Len(Vzorec) - Len(WorksheetFunction.Substitute(Vzorec, "+", ""))
For i = 1 To PocetPlus Step 1
RozdelCezPluska = RozdelCezPluska & Range(Left(Vzorec, InStr(Vzorec, "+") - 1)).Offset(0, -1).Value & ","
Vzorec = Mid(Vzorec, InStr(Vzorec, "+") + 1)
Next i
RozdelCezPluska = RozdelCezPluska & Range(Vzorec).Offset(0, -1).Value
End Function .