» Poradna » Programy

Excel - sloučení obsahu x buněk ve sloupci do jedné buňky.

 |   |  Microsoft Windows 7 IE 11.0

Prosím opět o radu odborníků: V jednom sloupci mám několik záznamů, některé se opakují 2x, 3x i vícekrát. Ke každému záznamu je v dalším sloupci přiřazena číslice. Potřebuji do nového sloupce ke každému záznamu zapsat všechny číslice, které se k danému záznamu vyskytují a to do jediné buňky. Tzn. pokud se záznam vyskytuje 3x, má v dalším sloupci přiřazeny 3 buňky s číslicemi a já tyto 3 číslice potřebuji dát za sebe do jedné buňky pro daný záznam. Uf snad jsem se srozumitelně vymáčkla. Děkuji moc. Jana

Odpovědi na otázku

 |   |  Microsoft Windows 10 IE 11.0

Zkuste tohle... dejte v excelu ALt + f11, tam dejte insert / Module a pak tam vlozte tohle... Sub Main()Dim Source As Worksheet: Set Source = ActiveSheetDim Destination As Worksheet: Set Destination = Sheets.AddDim Records As Object: Set Records = CreateObject("Scripting.Dictionary")Dim Data As VariantDim Index As LongDim Row As Integer: Row = 1Data = Source.Range("A1", "B" & Source.Rows(Source.UsedRange.Rows.Count).Row).Value2For Index = LBound(Data, 1) To UBound(Data, 1) If Records.Exists(Data(Index, 1)) Then Destination.Cells(Records(Data(Index, 1)), 2).Value2 = Destination.Cells(Records(Data(Index, 1)), 2).Value2 & ", " & Data(Index, 2) Else Records.Add Data(Index, 1), Row Destination.Cells(Row, 1).Value2 = Data(Index, 1) Destination.Cells(Row, 2).Value2 = Data(Index, 2) Row = Row + 1 End IfNext IndexSet Records = NothingEnd SubPotom na karte vyvojar jsou makra, kde najdete makro main. Staci ho spustit. Mělo by to projit aktivni list a do nového listu vypsat položky jak potrebujete.

Souhlasím  |  Nesouhlasím  |  Odpovědět




Určitě si přečtěte

Velká podzimní aktualizace: Co nového teď najdete ve Windows 10

Velká podzimní aktualizace: Co nového teď najdete ve Windows 10

** Microsoft se opět snaží spojit telefony a počítače. ** Místo velkých novinek se zaměřil spíše na drobná vylepšení. ** Vyhledávání je konečně použitelné a hledá téměř všude.

Vladislav Kluska | 78

Vylaďte si Wi-Fi: Podívejte se, jaká pásma máte doma volná a kam signál nedosáhne

Vylaďte si Wi-Fi: Podívejte se, jaká pásma máte doma volná a kam signál nedosáhne

** Prozkoumejte, jaké pásmo je pro vaši síť nejlepší ** Díky heat mapě snadno poznáte, kde to bude se signálem horší ** Vše zvládnete i z mobilního telefonu

Vladislav Kluska | 36

Google má nové telefony, počítač a domácí displej. Česko je stále mimo

Google má nové telefony, počítač a domácí displej. Česko je stále mimo

** Google dnes představil novinky ** Dočkali jsme se nového telefonu Pixel 3, tabletopočítače a domácího displeje ** Rozšíření Google Assistenta do dalších zemí se bohužel nekoná

David Polesný | 45

Tohle tak jednou zažít: Nová vzducholoď Airlander 10 s prosklenou podlahou

Tohle tak jednou zažít: Nová vzducholoď Airlander 10 s prosklenou podlahou

** Airlander 10 nabídne plavby vzduchem v interiéru s prosklenou podlahou ** Luxusní vzducholoď byla původně vyvíjena pro vojenské účely ** Počítá se s třídenními „kochacími“ výlety za poznáním

Karel Kilián | 7

Lenovo přivezlo na IFA 2018 skutečné inovace. Tyto tři notebooky stojí za to

Lenovo přivezlo na IFA 2018 skutečné inovace. Tyto tři notebooky stojí za to

** Yoga C930 nabídne revoluční reproduktor v kloubu displeje ** Yoga Book C930 představuje zdařilý reparát podivného Yoga Booku ** ThinkPad X1 Extreme se může pochlubit extrémní výbavou v tenkém těle

Tomáš Holčík | 16

Nechali jsme dopadnout asteroid Ryugu na Prahu. Místo stověžatého města je pětikilometrový kráter

Nechali jsme dopadnout asteroid Ryugu na Prahu. Místo stověžatého města je pětikilometrový kráter

** Ryugu je blízkozemní planetka, která křižuje dráhu Země ** Její průměr je asi 900 metrů ** Co by se stalo, kdyby Ryugu dopadla na Zemi?

Petr Kubala | 5


Aktuální číslo časopisu Computer

Jak vytvořit a spravovat vlastní web

Velký test herních klávesnic a DVB-T2 tunerů

Vše o formátu RAW

Vybíráme nejlepší základní desku