Džo jautā, vai programmā Excel ir kāds veids, kā veikt filtrētu ielīmēšanas darbību.
Pieņemsim, ka jums ir 1000 ierakstu lapā Sheet1. Jūs filtrējat šo datu kopu, lai parādītu jums tikai ierakstus ar ProdID = Z. Atlasiet datu kopu un ielīmējiet Sheet2. Patīkami, ka Excel nodrošina tikai redzamos ierakstus, tāpēc jums ir blakusesošs šūnu bloks. Varbūt jūs veicat dažus pārveidojumus šajos ierakstos, un tagad tas atkal jāielīmē sākotnējā datu kopā. Excel nepiedāvā vienkāršu veidu, kā to izdarīt. Šajā video esošais makro palīdzēs šajā procesā. Es ierakstīju Learn Excel Podcast 977. sēriju, kurā parādīts makro, kas palīdzēs šai darbībai. Šeit atradīsit Excel darbgrāmatā izmantoto video un kodu.
Skatīties video
Kopējiet šo kodu
Nedaudz pielāgoju kodu no videoklipa. Tas pieņem, ka jūs kopēsit virsraksta rindu un filtrētos ierakstus no 1. lapas uz 2. lapu:
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 SubRisinājums bez makro
Pēc pirmā videoklipa demonstrēšanas Gerijs nosūtīja jaunu risinājumu, izmantojot ielīmēšanas izlaišanas sagataves. Noskatieties šo videoklipu šeit:
