Joe megkérdezi, hogy lehet-e szűrt beillesztési műveletet végezni az Excelben.
Tegyük fel, hogy 1000 rekordja van a Sheet1-en. Az adatkészletet úgy szűri, hogy csak a ProdID = Z rekordokat jelenítse meg. Jelölje ki az adatkészletet, és illessze be a 2. lapra. Szépen, az Excel csak a látható rekordokat hozza, így van egy összefüggő cellatömbje. Talán néhány átalakítást hajt végre ezeken a rekordokon, és most vissza kell illesztenie az eredeti adathalmazba. Az Excel NEM kínál egyszerű módszert erre. A videó makrója segíti a folyamatot. Rögzítettem a Learn Excel Podcast 977. epizódot, amely makrót tartalmaz, amely segít ebben a műveletben. Itt található az Excel munkafüzetben használt videó és kód.
Videót nézni
Másolja ezt a kódot
Kicsit megigazítottam a videó kódját. Ez feltételezi, hogy átmásolja a címsort és a szűrt rekordokat az 1. munkalapról a 2. lapra:
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 SubMegoldás makrók nélkül
Az első videó bemutatása után Gary új megoldást küldött a Paste Skip Blanks használatával. Nézze meg ezt a videót itt:
