< návrat zpět

MS Excel

Téma: Výpis obsahu neprázdných buněk do jedné rss

Zaslal/a Ezz2P 29.10.2017 19:50

Zdravím, snažím se ze sloupce A2:A100 vypsat obsah neprázdných buněk (text) do jedné buňky, a tyto jednotlivé texty oddělit čárkou. Pomohl by mi někdo s funkcí? Předem díky, mám Excel 2013 (TEXTJOIN ani CONCAT nelze použit).

Zaslat odpověď >
xlnc(29.10.2017 21:43)#038174
avatar
TEXTJOIN by pomohl, ale dobrá...

S trochou práce:
Odkažte se na oblast vzorcem a ještě před jeho potvrzením stiskněte F9. Uvidíte něco jako

={"a";"b";0;"c";0;0;0;"d";"e";0;0;0;"f";0;0;0;0}

Zbavte se předku a zadku, dále s pomocí dialogu Najít a nahradit 0; a nakonec uvozovek a nahraďte středníky za čárky.

Jinak vlastní funkce (UDF):
https://proexcel.cz/spojovani-textovych-retezcu/citovat
Stalker(29.10.2017 21:58)#038175
Stalker
Něco jako se probíralo zde:?
http://www.jaknaoffice.cz/2-forum/?id=3397citovat
Ezz2P(29.10.2017 22:58)#038176
avatar
Určitě je to lepší, než co jsem zatím zvládnnul já, díky. Jen to má sloužit při automatizovaném vyhodnocení dotazníku, takže bych potřeboval, aby se již nemuselo dále upravovat a jen to vypsalo text těch buněk. Ještě se podívám na odkazy.citovat
elninoslov(30.10.2017 6:40)#038177
elninoslov
Ďalší príklad:
Function SPOJTEXT(rng As Range) As String
Dim ADR As String
ADR = rng.Columns(1).Address
SPOJTEXT = Replace(Replace(Join(Evaluate("=TRANSPOSE(IF(" & ADR & "<>""""," & ADR & ",""""))"), "•°"), "°•", vbNullString), "•°", ",")
If Right$(SPOJTEXT, 1) = "," Then SPOJTEXT = Left$(SPOJTEXT, Len(SPOJTEXT) - 1)
End Functioncitovat
Ezz2P(30.10.2017 21:56)#038192
avatar
A nešlo by to udělat pomocí funkcí KDYŽ a TRANSPOZICE?citovat
elninoslov(30.10.2017 22:23)#038193
elninoslov
Nie. Použite teda spojenie pomocou pomocného skrytého stĺpca. Vymyslite si podobne koncipovaný vzorec, ktorý bude vždy pridávať daný riadok k už spojeným, a Vy budete čítať iba poslednú hodnotu, ktorej pozíciu vhodne umiestnite.
Příloha: xlsx38193_spoj-text-pomocou-skryteho-stlpca.xlsx (10kB, staženo 32x)
citovat
xlnc(31.10.2017 7:49)#038194
avatar
Varianta elninoslov:

https://www.get-digital-help.com/2010/08/23/concatenate-cell-values-in-excel/citovat
Zdeno-Frano(15.10.2018 10:31)#041660
avatar
Dobrý deň vospolok.
Riešim ten istý problém, tak isto TEXTJOIN nie je k dispo, ale spájané hodnoty sú dátumy.
V riešení Elninoslov:
Ak výsledok obsahuje len 1 dátum, zobrazenie je správne. Ak však už je vo výsledku viac spojených dátumov, zobrazuje ich v číselnom formáte.
Je na to nejaké riešenie?
Ďakujem
Příloha: xlsx41660_38194_spoj-text-pomocou-skryteho-stlpca.xlsx (11kB, staženo 22x)
citovat
elninoslov(15.10.2018 11:04)#041661
elninoslov
=IF(A2<>"";IF(ROW(A2)=2;TEXT(A2;"d.m.")&YEAR(A2);IF(B1<>"";B1&",";B1)&TEXT(A2;"d.m.")&YEAR(A2));IF(ROW(A2)=2;"";B1))

=KDYŽ(A2<>"";KDYŽ(ŘÁDEK(A2)=2;HODNOTA.NA.TEXT(A2;"d.m.")&ROK(A2);IF(B1<>"";B1&",";B1)&HODNOTA.NA.TEXT(A2;"d.m.")&ROK(A2));KDYŽ(ŘÁDEK(A2)=2;"";B1))

TEXT(A2;"d.m.")&YEAR(A2)
som použil namiesto
TEXT(A2;"d.m.yyyy")
lebo by to pri prechode SK(EN) -> CZ nefachalo, kvôli tomu ž v CZ je to
TEXT(A2;"d.m.rrrr")
ale automaticky sa to nemení.citovat
Zdeno-Frano(15.10.2018 11:59)#041662
avatar
Super, ďakujem!!!citovat

Uživatelské menu

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

Menu

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.

On-line nástroje