petraexe
16.03.15,12:23
Prosím Vás, potrebovala by som poradiť v oblasti xls a word, a to konkrétne v tom, ako zo stĺpca usporiadaných čísel získam do jednej bunky hodnoty oddelené čiarkami. Ďakujem.
sthruska
16.03.15,12:52
Poradiť neviem, nakoľko presne nerozumiem otázke.
Ale oddeliť čísla čiarkami sa mi zdá ako nešťastné riešenie. Čo desatinné čísla. A to je ešte závislé na nastavení OS. Na to sa ako oddeľovač používa napríklad ; alebo iný znak.
To chceš vykonať v rámci jedného dokumentu, alebo medzi dokumentmi? Máš tam aj čosi iné - predpokladám, že áno?
Existuje export do csv súboru. To by za určitých okolností mohlo pomôcť.
petraexe
16.03.15,13:08
Ďakujem za odpoveď, uvediem Vám príklad, desatinné čiarky nepripadajú do úvahy:
1/15
2/15
3/15
4/15
5/15
z tohto formátu potrebujem formát
1/15,2/15,3/15,4/15,5/15.
ivka70
16.03.15,14:04
Toto by ti nestacilo?

' =CONCATENATE(A1;",";A2;",";A3;",";A4)
petraexe
17.03.15,07:15
Ďakujem, toto je super, funguje to, ale čo v prípade, ak tých čísel je 200, 500, 1000? Potrebovala by som, aby to bolo flexibilné.
marjankaj
17.03.15,08:18
Môžeš si urobiť makro.
Alebo
do B1 dáš =A1
do B2 dáš =CONCATENATE(B1;",";A2) a skopíruješ smerom dole. V poslednom riadku budeš mať to čo si chcela.
To si potom môžeš skopírovať a vložiť ako hodnotu kam potrebuješ.
petraexe
17.03.15,08:29
Super, ďakujem Ti veľmi pekne.
PaloPa
17.03.15,13:07
Napr. takto:




Sub Bunky_do_jednej()
Dim rngSrc As Range, rngTrg As Range, c As Range
Dim tx As String

Set rngSrc = Selection 'zdrojova oblast - vyznacene bunky
Set rngTrg = rngSrc.Cells(1).Offset(0, 1) 'cielova oblast - bunka vpravo od prvej vyznacenej

For Each c In rngSrc
If c.Text <> "" Then
tx = tx & IIf(Len(tx) > 0, ",", "") & c.Text
End If
Next c
rngTrg.Value = tx

End Sub


prípadne cez takúto funkciu:


Function Spajaj(zdroj As Range) As String
Spajaj = Join(Application.Transpose(zdroj.Value), ",")
End Function





Použitie: =Spajaj(A3:A7)

P.