< návrat zpět

MS Excel


Téma: rozdelenie textu do viacerých buniek rss

Zaslal/a 13.2.2017 21:45

Dobrý deň. Ako by ste rozdelili pomocou vzorcov text do viacerých buniek? Viďte priložený obrázok.

verzia: 2013

Příloha: png34925_priklad.png (4kB, staženo 80x)
34925_priklad.png
Zaslat odpověď >

Strana:  1 2   další »
#034928
elninoslov
Niekde sme to tu riešili:
Příloha: zip34928_rozdelenie-textu-do-stlpcov.zip (16kB, staženo 55x)
citovat
#034929
avatar
Ďakujem. Rozmýšľal som či neexistuje nejaká funkcia, ktorá by vrátila počet písmen do druhej medzery v texte...citovat
#034930
elninoslov
Na to musíte zreťaziť 2 vyhľadávacie fnc (na 3. medzeru treba zreťaziť 3 fnc atď):
=FIND(" ";A1;FIND(" ";A1)+1)
=NAJÍT(" ";A1;NAJÍT(" ";A1)+1)
citovat
#034931
avatar
Super ďakujem.

A môžte mi ešte poradiť? Ak sa nachádza nejaké slovo z modrých buniek aj v texte červenej bunky, nech priradí to slovo do zelených buniek. Keď nájde to jedno slovo, tak nech hľadá ešte ostatné slová, až pokiaľ nevyčerpá všetky možnosti. Viďte prílohu.
Příloha: rar34931_rozdelenie-vyhladanych-hodnot.rar (7kB, staženo 28x)
citovat
#034933
elninoslov
príklad
Příloha: zip34933_rozdelenie-vyhladanych-hodnot.zip (8kB, staženo 46x)
citovat
#034939
avatar
Aký je vlastne rozdiel medzi NAJÍT a HLEDAT?citovat
icon #034940
eLCHa
Co tak nápověda.
NAJÍT rozlišuje velká a malá písmena. HLEDAT ne.citovat
#034944
avatar
Ospravedlnujem sa ale porovnaval som si ich a neprisiel som na to. Tak uz viem, dakujem.citovat
#034950
Stalker
Ahoj, zneužiju toto vlákno a zeptám se jak by se toto zadání dalo řešit pomocí VBA?

Pomocí pole dokážu rozdělit jednotlivé komodity, ale nedaří se mi oddělit množství (pro vedlejší sloupec).
Sub Rozdel()
Dim Pole() As String
Dim Pocet As Long
Dim Hodnoty As String
Hodnoty = Cells(1, 1).Value
Pole = Split(Hodnoty, ", ")
For Pocet = LBound(Pole) To UBound(Pole)
Cells(Pocet + 1, 5).Value = Trim(Pole(Pocet))
Next
End Sub


Lze vůbec pracovat (rozdělit) hodnoty načtené v poli nebo je jiná varianta (Collection)?citovat
#034951
Stalker
Tak sem dospěl k tomuto:
Sub Rozdel()
Dim Pole() As String
Dim Pocet As Integer
Dim Hodnoty As String
Dim i as Integer
Hodnoty = Cells(1, 1).Value
Pole = Split(Hodnoty, ", ")
For Pocet = LBound(Pole) To UBound(Pole)
Cells(Pocet + 1, 5).Value = Trim(Pole(Pocet))
Next
Erase Pole
For i = 1 To Pocet
Pole = Split(Cells(i, 5).Value, " ")
With Cells(i, 5)
.Value = Pole(0)
.Offset(, 1).Value = Pole(1)
End With
Next
End Sub

Máte někdo lepší - elegantnější řešení?
Díkycitovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse