Oddělovat bunky čárkou Vyřešeno

[jet]

Zdravím, prosím poradte jak udelat toto? Mam data ve sloupci v excelu a potreboval bych je dostat do wordu do radku aby jednotliva data byly oddeleny carkou. Dokazale jsem prevest sloupec do radku v excelu pomoci funkce vloz jinak, ale jeste se mi nedari ta carka mezi nima :)
Diky za radu

[Reklama]

[d1amond]

Do buňky, kde má být spojený text, vlož fci

Kód: Vybrat vše

=CONCATENATE(A1;", ";A2;", ";A3;", ")

Doplň si další buňky...

[jet]

Super to je ono, a slo by to jeste nejak osetrit abych tam ty bunky nemusel vpisovat, jedna se vzdy asi o 200 bunek pod sebou. Zkousel jsem tam dat : ale nejak to nevzalo :) Nevis si rady?

[mejlacz]

Co třeba protáhnout vzorec dolů do příslušných buněk?

[jet]

:) to ne to ti vzdycky akorat udela dalsi tri bunky ale ne komplet :) Potrebuju neco aby tahle fce brala celou oblast

[d1amond]

Jedině makrem. Když mi dáš rozsah odkud kam to projít, něco sepíšu.

[mike007]

Nepíšeš v jakém sloupci máš data a odkud ti začínají. Tady máš makro pro data ve sloupci A.
Data oddělená čárkou se vypíší do B1

Kód: Vybrat vše

Sub makro()
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = iLastRow To 2 Step -1
Cells(i - 1, "B").Value = Cells(i - 1, "A").Value & "," & _
Cells(i, "B").Value
Cells(i, "B").Clear
Next i
End Sub

[d1amond]

Dovolím si přidat upravenou fci Concatenate. Oblast je parametrem fce.

Kód: Vybrat vše

Option Explicit
Function Spojit(rng As Range, Optional oddelovac As String) As String

Dim str As String
Dim odd As String

Select Case oddelovac
    Case Is = "": odd = " "
    Case Is <> "": odd = oddelovac
End Select

str = ""

For Each cell In rng
  str = str & CStr(cell.Value) & odd
Next cell

Spojit = str

End Function


V excelu stisknout Alt+F11 (editor VBA), v menu zvolit Insert (=Vložit) > Module (=Modul) a do nového Module1 zkopírovat výše uvedený kód. Editor VBA zavřít. Makra musí být povolena.

fce se vloží do libovolné buňky, stejně jako Concatenate, tj.

Kód: Vybrat vše

=Spojit(A1:B200; ", ")

Parametrem fce je oblast buněk, v příkladu A1:B200 a dále libovolný odělovač (v příkladu ", "). Pokud se nezadá odělovač, je standarně mezera.

[jet]

Super díky moc to je přesně ono, jste šikulové, jeětě kdyby se Vám podařily rozluštit moje další dva dotazy co mam tady na foru tak bych byl max spokojen :)