< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#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
#038175
Stalker
Něco jako se probíralo zde:?
http://www.jaknaoffice.cz/2-forum/?id=3397citovat
#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
#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 Function
citovat
#038192
avatar
A nešlo by to udělat pomocí funkcí KDYŽ a TRANSPOZICE?citovat
#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 31x)
citovat
#038194
avatar
Varianta elninoslov:

https://www.get-digital-help.com/2010/08/23/concatenate-cell-values-in-excel/citovat
#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?
Ďakujemcitovat
#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
#041662
avatar
Super, ďakujem!!!citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:05

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:00