» Poradna » Programy

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

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 1/1
 |   |  Microsoft Windows 7 IE 11.0  |  [89.177.110.---]

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