Stránka 1 z 1
Oddělovat bunky čárkou Vyřešeno
Napsal: 21 zář 2011 08:55
od 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
Re: Oddělovat bunky čárkou
Napsal: 21 zář 2011 11:21
od 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...
Re: Oddělovat bunky čárkou
Napsal: 21 zář 2011 12:39
od 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?
Re: Oddělovat bunky čárkou
Napsal: 21 zář 2011 13:14
od mejlacz
Co třeba protáhnout vzorec dolů do příslušných buněk?
Re: Oddělovat bunky čárkou
Napsal: 21 zář 2011 13:20
od jet
:) to ne to ti vzdycky akorat udela dalsi tri bunky ale ne komplet :) Potrebuju neco aby tahle fce brala celou oblast
Re: Oddělovat bunky čárkou
Napsal: 21 zář 2011 17:29
od d1amond
Jedině makrem. Když mi dáš rozsah odkud kam to projít, něco sepíšu.
Re: Oddělovat bunky čárkou
Napsal: 21 zář 2011 17:50
od 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
Re: Oddělovat bunky čárkou
Napsal: 21 zář 2011 18:24
od 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.
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.
Re: Oddělovat bunky čárkou
Napsal: 22 zář 2011 08:49
od 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 :)