• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

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

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

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

Něco jako se probíralo zde:?
http://www.jaknaoffice.cz/2-forum/?id=3397citovat

Ezz2P(29.10.2017 22:58)#038176

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

Ď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

A nešlo by to udělat pomocí funkcí KDYŽ a TRANSPOZICE?citovat

elninoslov(30.10.2017 22:23)#038193

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: 38193_spoj-text-pomocou-skryteho-stlpca.xlsx (10kB, staženo 31x)

citovat

xlnc(31.10.2017 7:49)#038194

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

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: 41660_38194_spoj-text-pomocou-skryteho-stlpca.xlsx (11kB, staženo 21x)

citovat

elninoslov(15.10.2018 11:04)#041661

=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

Super, ďakujem!!!citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse