Joe sa pýta, či existuje spôsob, ako vykonať operáciu filtrovaného prilepenia v programe Excel.
Povedzme, že na hárku1 máte 1 000 záznamov. Filtrujete túto množinu údajov tak, aby vám zobrazovala iba záznamy, s ProdID = Z. Vyberte množinu údajov a prilepte ich do hárka2. Excel pekne prináša iba viditeľné záznamy, takže máte súvislý blok buniek. Možno urobíte nejaké transformácie týchto záznamov a teraz ich musíte vložiť späť do pôvodnej množiny údajov. Excel neponúka žiadny ľahký spôsob, ako to dosiahnuť. Makro v tomto videu pomôže s procesom. Zaznamenal som epizódu 977 Learn Excel Podcast, ktorá ukazuje makro, ktoré mi pri tejto akcii pomôže. Tu nájdete video a kód použitý v zošite programu Excel.
Pozeraj video
Skopíruj tento kód
Trochu som upravil kód z videa. To predpokladá, že skopírujete riadok nadpisu a filtrované záznamy z hárka1 do hárka2:
Sub PasteBack() ' Assumes the Filterered Sheet1 is active Set DataToCopy = Sheet2.Range("A1").CurrentRegion n = 2 ' index for range to copy from Sheet2 one row at a time, skipping headers For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row ' row 1 is header If Not Rows(i).Hidden Then DataToCopy.Offset(n - 1).Resize(1).Copy Cells(i, 1) n = n + 1 If n> DataToCopy.Rows.Count Then Exit Sub End If Next i End SubRiešenie bez makier
Po odvysielaní prvého videa poslal Gary nové riešenie pomocou nástroja Paste Skip Blanks. Pozrieť si toto video tu :.
