Joe küsib, kas Excelis on võimalus filtreeritud kleepimistoimingut teha.
Oletame, et teil on lehel1 1000 kirjet. Filtreerite selle andmekomplekti, et kuvada teile ainult kirjed tootega ProdID = Z. Valige andmekogum ja kleepige lehele2. Kenasti toob Excel ainult nähtavad kirjed, nii et teil on külgnev lahtrite plokk. Võib-olla teete nendesse kirjetesse mõningaid teisendusi ja peate selle nüüd algsesse andmekogumisse kleepima. Excel EI paku selleks lihtsat viisi. Selle video makro aitab protsessi kaasa. Salvestasin Learn Excel Podcasti osa 977, mis näitab selle toimingu hõlbustamiseks makrot. Siit leiate video ja Exceli töövihikus kasutatud koodi.
Vaata videot
Kopeerige see kood
Kohendasin videost koodi veidi. See eeldab, et kopeerite pealkirja rida ja filtreeritud kirjed lehelt 1 lehele 2:
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 SubLahendus ilma makrodeta
Pärast esimese video eetrisse saatmist saatis Gary uue lahenduse, kasutades kleepimise vahelejätmist. Vaadake seda videot siit:
