In een gefilterde dataset plakken - Excel-tips

Joe vraagt of er een manier is om een gefilterde plakbewerking in Excel uit te voeren.

Stel dat u 1000 records op Sheet1 heeft. U filtert die dataset om u alleen de records met ProdID = Z te tonen. Selecteer de dataset en plak deze in Sheet2. Mooi, Excel brengt alleen de zichtbare records, dus je hebt een aaneengesloten blok cellen. Misschien voert u enkele transformaties uit in die records en moet u deze nu weer in de originele dataset plakken. Excel biedt GEEN gemakkelijke manier om dit te doen. De macro in deze video helpt bij het proces. Ik heb Learn Excel Podcast aflevering 977 opgenomen met een macro om te helpen bij deze actie. Hier vindt u de video en de code die in de Excel-werkmap wordt gebruikt.

Bekijk video

Kopieer deze code

Ik heb de code van de video een beetje aangepast. Dit veronderstelt dat u de koprij en de gefilterde records kopieert van Blad1 naar Blad2:

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 Sub