Joe pyta, czy istnieje sposób wykonania operacji wklejania przez filtrowanie w programie Excel.
Powiedzmy, że masz 1000 rekordów w arkuszu Sheet1. Filtrujesz ten zestaw danych, aby wyświetlić tylko rekordy z ProdID = Z. Wybierz zestaw danych i wklej do Sheet2. Cóż, Excel wyświetla tylko widoczne rekordy, więc masz ciągły blok komórek. Być może dokonujesz transformacji tych rekordów i teraz musisz wkleić je z powrotem do oryginalnego zestawu danych. Program Excel NIE oferuje łatwego sposobu, aby to zrobić. Makro w tym filmie pomoże w tym procesie. Nagrałem odcinek Learn Excel Podcast 977 pokazujący makro pomagające w tej akcji. Tutaj znajdziesz wideo i kod użyty w skoroszycie programu Excel.
Obejrzyj wideo
Skopiuj ten kod
Poprawiłem trochę kod z wideo. Zakłada się, że skopiujesz wiersz nagłówka i przefiltrowane rekordy z Sheet1 do 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 SubRozwiązanie bez makr
Po wyemitowaniu pierwszego filmu Gary przesłał nowe rozwiązanie za pomocą funkcji Wklej pomijanie pustych pól. Obejrzyj ten film tutaj:
