Kako kopirati odabrane ćelije u Excelu. Kopira samo vidljive ćelije. Brzo dodajte podatke u grafikon

07.01.2021 Zanimljiv

Odabir podataka u Excelu proveden je filtrom ili sortiranjem. Sada ih treba ispisati ili premjestiti na drugo mjesto. Kopiraj u Excel konfiguriran tako da se kopiraju i skrivene ćelije.
Razmotrimo dva načina, Do Kako kopirati filtrirane retke u Excelu.
Prvi način.
U Excelu postoji sjajna funkcija - funkcija " Poseban umetak» u Excelu.
Dakle, imamo stol.
Kako instalirati filtar, pogledajte članak " Filtriraj u Excelu".
Filterom uklanjamo sve Ivanove s liste. Ispalo je ovako.
Odaberite tablicu i kliknite na "Kopiraj" u kontekstnom izborniku. Kliknite lijevom tipkom miša ćeliju A9 i odaberite "vrijednosti" u kontekstnom izborniku.
Pritisnite "OK". Evo. Kopirana je ne samo vrijednost vidljivih redaka, već i format ćelija.
Postoji jedna nijansa- umetnite filtrirane podatke ne u retke u kojima se nalazi filter. Na primjer, u našem primjeru - ne u redovima 1-7, već ispod ili na drugom listu itd. Ako umetnemo u retke u kojima se nalazi filtar, tada će filtrirani podaci također biti umetnuti u retke koje je filtar sakrio. Općenito, ispast će nered. Drugi način.
Stol je isti. Odaberite tablicu s filtriranim podacima. Na kartici "Početna" kliknite na odjeljak "Uređivanje". Pronađite i označite funkcije u Excelu. Zatim kliknite gumb "Idi". U dijaloškom okviru koji se pojavi kliknite gumb "Odaberi...". U prozoru "Odaberi grupu ćelija" potvrdite okvir pored "samo vidljive ćelije". Pritisnite "OK". Sada na istom odabranom stolu desni miš poziv kontekstni izbornik. Pritisnite funkciju "Kopiraj". Na novom mjestu (u našem primjeru, ovo je ćelija A15), kliknite "Umetni". Svi. Ispalo je ovako.
Kako, bez kopiranja, odmah ispis podataka filtera u excelu, pogledajte članak „Oznaka Excel list"Izgled stranica""

Zalijepi samo vidljive linije VExcel brojeva, formula, teksta može se napraviti na više načina. Kada trebate umetnuti brojeve, formule, tekst u ne sve retke tablice, možete koristiti filtar. Kako instalirati filter i kako filtrirati u Excelu, pogledajte članak “Filter u Excelu”. Ali za umetanje podataka samo u vidljive ćelije, potrebne su vam vlastite metode, pogotovo ako ima mnogo redaka.
Prvi način je obični .
Uzmimo ovakav stol. Tablica će biti ista za sve primjere.
Upotrijebimo filtar za uklanjanje svih znamenki 2 iz tablice. U preostale vidljive ćelije stavimo broj 600. U ćeliju B2 stavimo broj 600, pa ga kopiramo niz stupac (povučemo donji desni kut ćelije B2). Vrijednosti su kopirane samo u vidljive ćelije. Na isti način možete umetnuti i formule. Sljedeću formulu zapisujemo u ćeliju C2. =A2*10
Ispalo je ovako.
Otkažimo filtar. Rezultat je ovakva tablica.
Formula i brojevi umetnuti su samo u filtrirane retke.
Drugi način.
Također ćemo filtrirati podatke. U prvu ćeliju upisujemo broj, formulu, tekst itd. Sada, ako postoje tisuće redaka, odaberite ćelije ovako: pritisnite tipke “Ctrl” + “Shift” + gumb sa strelicom prema dolje (ili gumb prema gore, ovisno o tome gdje želimo odabrati ćelije - ispod ili iznad ćelija u koju je upisan broj) .
Sada, ili pritisnite kombinaciju tipki “Ctrl” + G ili tipku F5. Pojavit će se dijaloški okvir Prijelaz. Pritisnite gumb "Odaberi...". A u novom dijaloškom okviru "Odaberi grupu ćelija" potvrdite okvir pored riječi "Samo vidljive ćelije".Pritisnite "OK". Zatim umetnite kao i obično.

Drugi način za otvaranje dijaloškog okvira Odabir grupe ćelija.Na kartici "Početna", u odjeljku "Uređivanje", kliknite na gumb "Pronađi i odaberi". Na popisu koji se pojavi kliknite na funkciju "Odaberi grupu ćelija".

Do ispuniti vidljive ćelije u odabranim Excel stupci , pritisnite kombinaciju tipki “Ctrl” + D. I svi odabrani stupci bit će ispunjeni podacima ili formulom, kao u prvoj ćeliji. U našem primjeru, upisali smo broj 800 u ćeliju D2, stupac D.



Treći način.
U novom stupcu (u našem primjeru stupac E) odaberite ćelije. Pritisnite tipku F5. Pojavit će se dijaloški okvir Prijelaz. Pritisnite gumb "Odaberi...". I u novom dijaloškom okviru "Odaberi grupu ćelija" potvrdite okvir pokraj riječi "Samo vidljive ćelije". Pritisnite "OK". Sada, bez poništavanja odabira, u prvu ćeliju stupca (naša je E2) unesite formulu, broj itd. Pritisnite kombinaciju tipki "Ctrl" + "Enter".

Uvjetno oblikovanje (5)
Popisi i rasponi (5)
Makronaredbe (VBA procedure) (63)
Razno (39)
Greške i greške u programu Excel (4)

Kako zalijepiti kopirane ćelije samo u vidljive/filtrirane ćelije

Općenito, mislim da je značenje članka već jasno iz naslova. Samo ću malo proširiti.

Nije tajna da Excel omogućuje odabir samo vidljivih redaka (na primjer, ako su neki od njih skriveni ili je primijenjen filtar).

Dakle, ako na ovaj način kopirate samo vidljive ćelije, one će se kopirati prema očekivanjima. Ali kada pokušate zalijepiti nešto kopirano u filtrirani raspon (ili ono što sadrži skrivene retke), rezultat lijepljenja neće biti točno onakav kakav ste očekivali. Podaci će biti umetnuti čak iu skrivene retke.

Kopirajte jedan raspon ćelija i zalijepite samo u vidljive
Za umetanje podataka samo u vidljive ćelije, možete koristiti sljedeću makronaredbu:

Opcija Explicit Dim rCopyRange As Range "Ovim makronaredbom kopiramo podatke Sub My_Copy() If Selection.Count > 1 Then Set rCopyRange = Selection.SpecialCells(xlVisible) Else : Set rCopyRange = ActiveCell End If End Sub "Ovom makronaredbom umećemo podatke počevši od odabrane ćelije Sub My_Paste() If rCopyRange Is Nothing Then Exit Sub If rCopyRange.Areas.Count > 1 Then MsgBox "Zalijepljeni raspon ne smije sadržavati više od jedne regije!",vbKritično, "Nevažeći raspon": Izlaz Sub Dim rCell As Range, li As Long , le As Long , lCount As Long , iCol As Integer , iCalculation As Integer Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 For iCol = 1 To rCopyRange .Columns.Count li = 0: lCount = 0: le = iCol - 1 za svaku rCell u rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset (li, le).EntireRow.Hidden = False Zatim rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop While lCount >= rCell.Row - rCopyRange.Cells(1 ).Row Next rCell Next iCol Application.ScreenUpdating = True : Application.Calculation = iCalculation End Sub

Opcija Explicit Dim rCopyRange As Range "Koristite ovu makronaredbu za kopiranje podataka Sub My_Copy() If Selection.Count > 1 Then Set rCopyRange = Selection.SpecialCells(xlVisible) Else: Set rCopyRange = ActiveCell End If End Sub "Koristite ovu makronaredbu za lijepljenje podaci počevši od odabranih ćelija Sub My_Paste() If rCopyRange Is Nothing Then Exit Sub If rCopyRange.Areas.Count > 1 Then MsgBox "Zalijepljeni raspon ne smije sadržavati više od jednog područja!", vbCritical, "Nevažeći raspon": Izlaz Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol As Integer, iCalculation As Integer Application.ScreenUpdating = False iCalculation = Application.Calculation: Application.Calculation = -4135 For iCol = 1 To rCopyRange.Columns .Count li = 0: lCount = 0: le = iCol - 1 za svaku rCell u rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).EntireColumn.Hidden = False And _ ActiveCell.Offset(li , le).EntireRow.Hidden = False Zatim rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop While lCount >= rCell.Row - rCopyRange.Cells(1). Red Sljedeći rCell Sljedeći iCol Application.ScreenUpdating = True: Application.Calculation = iCalculation End Sub

Da biste dovršili sliku, bolje je dodijeliti ove makronaredbe vrućim tipkama (u kodovima ispod to se radi automatski kada se knjiga otvori kodom). Da biste to učinili, trebate samo kopirati donje kodove u modul Ova knjiga (Ova radna knjiga) :

Opcija Eksplicitno "Otkaži dodjelu prečaca prije zatvaranja radne knjige Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "^q": Application.OnKey "^w" End Sub "Dodijeli prečace pri otvaranju radne knjige Private Sub Workbook_Open() Aplikacija .OnKey "^q", "My_Copy": Application.OnKey "^w", "My_Paste" End Sub

Sada možete kopirati željeni raspon pritiskom na tipke Ctrl + q , i ubacite ga u filtrirani - Ctrl + w .

Primjer preuzimanja

(46,5 KiB, 9622 preuzimanja)

Kopirajte samo vidljive ćelije i zalijepite samo u vidljive
Na zahtjev posjetitelja stranice odlučio sam doraditi ovaj postupak. Sada je moguće kopirati bilo koje raspone: sa skrivenim redovima, skrivenim stupcima, i zalijepiti kopirane ćelije također u bilo koje raspone: sa skrivenim redovima, skrivenim stupcima. Radi potpuno isto kao i prethodni: pritiskom na tipke Ctrl + q kopirajte željeni raspon (sa skrivenim/filtriranim redovima i stupcima ili nije skriven) i zalijepite tipkovničkim prečacem Ctrl + w . Umetanje se također izvodi u skrivene/filtrirane retke i stupce ili bez skrivenih.
Ako kopirani raspon sadrži formule, tada da biste izbjegli pomicanje reference, možete kopirati samo vrijednosti ćelija - tj. Prilikom umetanja vrijednosti neće se umetnuti formule, već rezultat njihovog izračuna. Ili ako je potrebno sačuvati formate ćelija u koje dolazi do umetanja, samo će se vrijednosti ćelija kopirati i zalijepiti. Da biste to učinili, trebate zamijeniti redak u kodu (u datoteci ispod):

rCell.Kopiraj rResCell.Offset(lr, lc)

rCell.Kopiraj rResCell.Offset(lr, lc)

na ovo:

rResCell.Offset(lr, lc) = rCell.Value

rResCell.Offset(lr, lc) = rCell.Value

Oba ova retka nalaze se u donjoj datoteci; samo trebate ostaviti onaj koji je prikladniji za vaše zadatke.

Primjer preuzimanja:

(54,5 KiB, 7928 preuzimanja)


Također pogledajte:
[]

Je li članak pomogao? Podijelite link sa svojim prijateljima! Video lekcije

("Donja traka":("textstyle":"static","textpositionstatic":"bottom","textautohide":true,"textpositionmarginstatic":0,"textpositiondynamic":"bottomleft","textpositionmarginleft":24," textpositionmarginright":24,"textpositionmargintop":24,"textpositionmarginbottom":24,"texteffect":"slide","texteffecteasing":"easeOutCubic","texteffectduration":600,"texteffectslidedirection":"lijevo","texteffectslidedistance" :30,"texteffectdelay":500,"texteffectseparate":false,"texteffect1":"slide","texteffectslidedirection1":"desno","texteffectslidedistance1":120,"texteffecteasing1":"easeOutCubic","texteffectduration1":600 ,"texteffectdelay1":1000,"texteffect2":"slide","texteffectslidedirection2":"desno","texteffectslidedistance2":120,"texteffecteasing2":"easeOutCubic","texteffectduration2":600,"texteffectdelay2":1500," textcss":"display:block; padding:12px; text-align:left;","textbgcss":"display:block; position:apsolute; top:0px; left:0px; width:100%; height:100% ; boja pozadine:#333333; neprozirnost:0,6; filter:alpha(opacity=60);","titlecss":"display:block; položaj: relativno; font:bold 14px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; boja:#fff;","descriptioncss":"display:block; položaj: relativno; font:12px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; boja:#fff; margin-top:8px;","buttoncss":"display:block; položaj: relativno; margin-top:8px;","texteffectresponsive":true,"texteffectresponsivesize":640,"titlecssresponsive":"font-size:12px;","descriptioncssresponsive":"display:none !important;","buttoncssresponsive": "","addgooglefonts":false,"googlefonts":"","textleftrightpercentforstatic":40))

Ako neke ćelije, retci ili stupci na radnom listu nisu vidljivi, možete kopirati sve ćelije (ili samo vidljive ćelije). Prema zadanim postavkama, Excel kopira ne samo vidljive ćelije, već i skrivene ili filtrirane ćelije. Ako želite samo kopirati vidljive ćelije, slijedite korake u nastavku. Na primjer, možete kopirati samo sažetak podataka sa strukturiranog radnog lista.

Slijedite korake u nastavku.

Bilješka: Kada kopirate, vrijednosti se umeću redom u retke i stupce. Ako područje lijepljenja sadrži skrivene retke ili stupce, možda ćete ih morati otkriti kako biste vidjeli sve podatke koje ste kopirali.

Kada kopirate i zalijepite vidljive ćelije u raspon podataka koji sadrži skrivene ćelije ili ima primijenjen filtar, možete primijetiti da su skrivene ćelije zalijepljene zajedno s vidljivim ćelijama. Nažalost, ne možete promijeniti ovu postavku kada kopirate i zalijepite niz ćelija u programu Excel za web jer lijepljenje samo vidljivih ćelija nije dostupno.

Međutim, ako oblikujete podatke kao tablicu i primijenite filtar, možete kopirati i zalijepiti samo vidljive ćelije.

Ako ne trebate formatirati podatke kao tablicu i imati instaliran klasični Excel aplikacija, možete otvoriti radnu knjigu u njoj da kopirate i zalijepite vidljive ćelije. Da biste to učinili, kliknite gumb Otvori u Excelu i slijedite korake opisane u članku kopirajte i zalijepite samo vidljive ćelije.

dodatne informacije

Uvijek možete postaviti pitanje stručnjaku Excel Tech Community, zatražiti pomoć u Answers zajednici i predložiti nova značajka ili poboljšanja na web stranici