Joe vpraša, ali v Excelu obstaja način za filtrirano lepljenje.
Recimo, da imate na Sheet1 1000 zapisov. Ta nabor podatkov filtrirate tako, da vam prikaže samo zapise s ProdID = Z. Izberite nabor podatkov in prilepite na Sheet2. Lepo je, da Excel prinaša samo vidne zapise, tako da imate neprekinjen blok celic. Morda naredite nekaj sprememb za te zapise in zdaj jih morate prilepiti nazaj v prvotni nabor podatkov. Excel tega NE ponuja na enostaven način. Makro v tem videoposnetku bo pomagal pri postopku. Posnel sem epizodo Learn Excel Podcast 977, v kateri je prikazan makro za pomoč pri tem dejanju. Tu boste našli video in kodo, uporabljeno v Excelovem delovnem zvezku.
Oglejte si video
Kopirajte to kodo
Kodo iz videa sem malo prilagodil. To predpostavlja, da boste kopirali vrstico naslova in filtrirane zapise iz 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 SubRešitev brez makrov
Po predvajanju prvega videoposnetka je Gary poslal novo rešitev z uporabo Paste Skip Blanks. Oglejte si ta video tukaj :.
