34925_priklad.png
Niekde sme to tu riešili:
Příloha: 
34928_rozdelenie-textu-do-stlpcov.zip (16kB, staženo 57x)
citovat34928_rozdelenie-textu-do-stlpcov.zip (16kB, staženo 57x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: rozdelenie textu do viacerých buniek
MS Excel
Téma: rozdelenie textu do viacerých buniek 
Zaslal/a blederik 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
Ďakujem. Rozmýšľal som či neexistuje nejaká funkcia, ktorá by vrátila počet písmen do druhej medzery v texte...citovat
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
=FIND(" ";A1;FIND(" ";A1)+1)
=NAJÍT(" ";A1;NAJÍT(" ";A1)+1)citovat
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.
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: 34931_rozdelenie-vyhladanych-hodnot.rar (7kB, staženo 30x)
citovat34931_rozdelenie-vyhladanych-hodnot.rar (7kB, staženo 30x)príklad
Příloha: 34933_rozdelenie-vyhladanych-hodnot.zip (8kB, staženo 48x)
citovat34933_rozdelenie-vyhladanych-hodnot.zip (8kB, staženo 48x)
Co tak nápověda.
NAJÍT rozlišuje velká a malá písmena. HLEDAT ne.citovat
NAJÍT rozlišuje velká a malá písmena. HLEDAT ne.citovat
Ospravedlnujem sa ale porovnaval som si ich a neprisiel som na to. Tak uz viem, dakujem.citovat
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
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
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
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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články