Joe pita postoji li način na koji se može izvršiti operacija filtriranog lijepljenja u Excelu.
Recimo da imate 1000 zapisa na Sheet1. Taj skup podataka filtrirate tako da vam prikaže samo zapise s ProdID = Z. Odaberite skup podataka i zalijepite u Sheet2. Lijepo je što Excel donosi samo vidljive zapise, tako da imate neprekidni blok ćelija. Možda napravite neke transformacije tih zapisa i sada ih morate zalijepiti natrag u izvorni skup podataka. Excel NE nudi nimalo jednostavan način za to. Makronaredba u ovom videozapisu pomoći će u procesu. Snimio sam Learn Excel Podcast epizodu 977 koja prikazuje makronaredbu za pomoć u ovoj radnji. Ovdje ćete pronaći videozapis i kôd koji se koriste u Excelovoj radnoj knjizi.
Gledaj video
Kopiraj ovaj kod
Šifru iz videa malo sam prilagodio. To pretpostavlja da ćete kopirati redak naslova i filtrirane zapise s Sheet1 na Sheet2:
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 SubRješenje bez makronaredbi
Nakon prvog emitiranja videa, Gary je poslao novo rješenje koristeći Paste Skip Blanks. Pogledajte taj video ovdje :.
