Nosacījuma formatēšana (5)
Saraksti un diapazoni (5)
Makro (VBA procedūras) (63)
Dažādi (39)
Excel kļūdas un kļūmes (4)

Kā ielīmēt nokopētās šūnas tikai redzamās/filtrētās šūnās

Vispār jau raksta jēga, manuprāt, ir skaidra no virsraksta. Es to tikai nedaudz paplašināšu.

Nav noslēpums, ka programma Excel ļauj atlasīt tikai redzamas rindas (piemēram, ja daži no tiem ir paslēpti vai tiek lietots filtrs).

Tātad, ja šādā veidā kopējat tikai redzamās šūnas, tās tiks kopētas, kā paredzēts. Bet, mēģinot ielīmēt kaut ko, kas kopēts filtrētā diapazonā (vai satur slēptās rindas), ielīmēšanas rezultāts nebūs tieši tāds, kādu gaidījāt. Dati tiks ievietoti pat slēptās rindās.

Kopējiet vienu šūnu diapazonu un ielīmējiet tikai redzamajās
Lai datus ievietotu tikai redzamajās šūnās, varat izmantot šādu makro:

Opcija Explicit Dim rCopyRange As Range "Ar šo makro mēs kopējam datus Sub My_Copy() Ja Selection.Count > 1 Tad iestatiet rCopyRange = Selection.SpecialCells(xlVisible) Else : Iestatīt rCopyRange = ActiveCell beigas, ja beigu apakš. "Ar šo makro mēs ievietojam datus, sākot no atlasītās šūnas Sub My_Paste() Ja rCopyRange nav nekas, tad izejiet no apakšgrupas, ja rCopyRange.Areas.Count > 1 then MsgBox "Ielīmētajā diapazonā nedrīkst būt vairāk par vienu reģionu!",vbCritical, "Nederīgs diapazons": Iziet no Sub Dim rCell As Range, li As Long , le As Long , lCount As Long , iCol As Integer , iCalculation As Integer Application.ScreenUpdating = nepareizs iCalculation = Application.Calculation: Application.Calculation = -4135 For rcCoolpyan To i .Columns.Count li = 0: lCount = 0: le = iCol - 1 katrai rCell in rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).Visa kolonna.Hidden = False Un _ ActiveCell.Offset (li, le).EntireRow.Hidden = False, then rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop While lCount >= rCell.Row - rCopyRange.Cells(1) ).Rinda Nākamā rŠūna Nākamā iCol Application.ScreenUpdating = True : Application.Calculation = iCalculation End Sub

Opcija Explicit Dim rCopyRange kā diapazons "Izmantojiet šo makro, lai kopētu datus Sub My_Copy() If Selection.Count > 1 then Set rCopyRange = Selection.SpecialCells(xlVisible) Cits: Set rCopyRange = ActiveCell End If End Sub "Izmantojiet šo makro, lai ielīmētu dati sākas no atlasītajām šūnām Sub My_Paste() If rCopyRange Is Nothing then Exit Sub If rCopyRange.Areas.Count > 1 Then MsgBox "Ielīmētajā diapazonā nedrīkst būt vairāk par vienu apgabalu!", vbCritical, "Nederīgs diapazons": Iziet Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol As Integer, iCalculation As Integer Application.ScreenUpdating = viltus iCalculation = Application.Calculation: Application.Calculation = -4135 For iCol = 1 To.ColumpyRange. .Count li = 0: lCount = 0: le = iCol - 1 katrai rCopyRange.Columns(iCol) rCell.Cells Do If ActiveCell.Offset(li, le).Visa kolonna.Hidden = False Un _ ActiveCell.Offset(li) , le).EntireRow.Hidden = False then rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop While lCount >= rCell.Row - rCopyRange.Cells(1). Nākamā rinda rŠūna Nākamā iCol Application.ScreenUpdating = True: Application.Calculation = iCalculation beigu apakšdaļa

Lai pabeigtu attēlu, labāk ir piešķirt šos makro karstajiem taustiņiem (zemāk esošajos kodos tas tiek darīts automātiski, atverot grāmatu ar kodu). Lai to izdarītu, modulī ir jāiekopē tālāk norādītie kodi Šī grāmata (Šī darbgrāmata) :

Opcija Explicit "Atcelt karsto taustiņu piešķiršanu pirms darbgrāmatas aizvēršanas Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "^q": Application.OnKey "^w" Beigas Sub "Piešķiriet karstos taustiņus, atverot darbgrāmatu Private Sub Workbook_Open() Application .OnKey "^q", "My_Copy": Application.OnKey "^w", "My_Paste" beigu apakš.

Tagad jūs varat kopēt vajadzīgo diapazonu, nospiežot taustiņus Ctrl + q un ievietojiet to filtrētajā - Ctrl + w .

Lejupielādes piemērs

(46,5 KiB, 9622 lejupielādes)

Kopējiet tikai redzamās šūnas un ielīmējiet tikai redzamās
Pēc vietnes apmeklētāju pieprasījuma es nolēmu pilnveidot šo procedūru. Tagad ir iespējams kopēt jebkuru diapazonu: ar slēptām rindām, slēptām kolonnām un ielīmēt kopētās šūnas arī jebkurā diapazonā: ar slēptām rindām, slēptām kolonnām. Tas darbojas tieši tāpat kā iepriekšējais: nospiežot taustiņus Ctrl + q kopējiet vajadzīgo diapazonu (ar slēptām/filtrētām rindām un kolonnām vai neslēptām) un ielīmējiet, izmantojot īsinājumtaustiņu Ctrl + w . Ievietošana tiek veikta arī slēptās/filtrētās rindās un kolonnās vai bez slēptajām.
Ja kopētajā diapazonā ir formulas, tad, lai izvairītos no atsauces pārvietošanas, varat kopēt tikai šūnu vērtības - t.i. Ievietojot vērtības, netiks ievietotas formulas, bet gan to aprēķina rezultāts. Vai arī, ja ir nepieciešams saglabāt to šūnu formātus, kurās notiek ievietošana, tiks kopētas un ielīmētas tikai šūnu vērtības. Lai to izdarītu, koda rindiņa jāaizstāj (tālāk esošajā failā):

rCell.Copy rResCell.Offset(lr, lc)

rCell.Copy rResCell.Offset(lr, lc)

uz šo:

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

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

Abas šīs rindas ir atrodamas zemāk esošajā failā, jums vienkārši jāatstāj tā, kas ir piemērotāka jūsu uzdevumiem.

Lejupielādes piemērs:

(54,5 KiB, 7928 lejupielādes)

Skatīt arī:
[]

Vai raksts palīdzēja? Kopīgojiet saiti ar draugiem! Video pamācības

("Apakšējā josla":("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":"left","texteffectslidedistance" :30,"texteffectdelay":500,"texteffectseparate":false,"texteffect1":"slide","texteffectslidedirection1":"right","texteffectslidedistance1":120,"texteffecteasing1":"easeOutCubic","texteffectduration1":600 "texteffectdelay1": 1000,"texteffect2":"slide","texteffectslidedirection2":"pa labi","texteffectslidedistance2":120,"texteffecteasing2":"easeOutCubic","texteffectduration2":600,"texteffectdelay2":15 textcss":"displejs:block:left;" ","titlecss":"displejs:bloks; pozīcija: radinieks; font:bold 14px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; color:#fff;","descriptioncss":"displejs:bloks; pozīcija: radinieks; fonts: 12px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; krāsa:#fff; margin-top:8px;","buttoncss":"displejs:bloks; pozīcija: radinieks; margin-top:8px;","texteffectresponsive":true,"texteffectresponsivesize":640,"titlecssresponsive":"font-size:12px;","descriptioncssresponsive":"display:none !important;","buttoncssresponsive": "","addgooglefonts":false,"googlefonts":"","textleftrightpercentforstatic":40))

Ja dažas darblapas šūnas, rindas vai kolonnas nav redzamas, varat kopēt visas šūnas (vai tikai redzamās šūnas). Pēc noklusējuma programma Excel kopē ne tikai redzamās šūnas, bet arī slēptās vai filtrētās šūnas. Ja vēlaties kopēt tikai redzamās šūnas, veiciet tālāk norādītās darbības. Piemēram, no strukturētas darblapas varat kopēt tikai kopsavilkuma datus.

Veiciet tālāk norādītās darbības.

Piezīme: Kopējot, vērtības tiek ievietotas secīgi rindās un kolonnās. Ja ielīmēšanas apgabalā ir paslēptas rindas vai kolonnas, iespējams, tās būs jāatceļ, lai redzētu visus kopētos datus.

Kopējot un ielīmējot redzamās šūnas datu diapazonā, kurā ir slēptās šūnas vai ir lietots filtrs, iespējams, pamanīsit, ka slēptās šūnas tiek ielīmētas kopā ar redzamajām šūnām. Diemžēl, kopējot un ielīmējot šūnu diapazonu programmā Excel tīmeklim, šo iestatījumu nevar mainīt, jo nav pieejama tikai redzamo šūnu ielīmēšana.

Tomēr, ja formatējat datus kā tabulu un lietojat filtru, varat kopēt un ielīmēt tikai redzamās šūnas.

Ja nevēlaties formatēt savus datus kā tabulu un jums ir instalēta darbvirsmas programma Excel, varat atvērt darbgrāmatu programmā Excel, lai kopētu un ielīmētu redzamās šūnas. Lai to izdarītu, noklikšķiniet uz pogas Atvērt programmā Excel un izpildiet darbības, kas norādītas sadaļā Tikai redzamo šūnu kopēšana un ielīmēšana.

Vairāk informācijas

Jūs vienmēr varat uzdot jautājumu Excel Tech Community speciālistam, lūgt palīdzību atbilžu kopienā un arī ieteikt jauna funkcija vai uzlabojumi vietnē

Datu atlase programmā Excel tika veikta, izmantojot filtru vai šķirošanu. Tagad tie ir jāizdrukā vai jāpārvieto uz citu vietu. Kopēt programmā Excel konfigurēts tā, lai tiktu kopētas arī slēptās šūnas.
Apskatīsim divus veidus, Uz Kā kopēt filtrētās rindas programmā Excel.
Pirmais veids.
Programmā Excel ir lieliska funkcija - Ielīmējiet īpašo funkciju programmā Excel.
Tātad mums ir galds.
Kā uzstādīt filtru, skatiet rakstu " Filtrēt programmā Excel".
Mēs izmantojam filtru, lai noņemtu visus Ivanovus no saraksta. Tas izrādījās šādi.
Atlasiet tabulu un konteksta izvēlnē noklikšķiniet uz "Kopēt". Ar peles kreiso taustiņu noklikšķiniet uz šūnas A9 un konteksta izvēlnē atlasiet “vērtības”.
Noklikšķiniet uz "OK". Voila. Tika kopēta ne tikai redzamo rindu vērtība, bet arī šūnu formāts.
Ir viena nianse- Ievietojiet filtrētos datus nevis tajās rindās, kur atrodas filtrs. Piemēram, mūsu piemērā - nevis 1.-7. rindā, bet gan zemāk vai uz citas lapas utt. Ja ielīmēsim rindās, kurās atrodas filtrs, tad filtrētie dati tiks ievietoti arī filtra paslēptajās rindās. Vispār jau izrādīsies bardaks. Otrais veids.
Tabula ir tāda pati. Atlasiet tabulu ar filtrētiem datiem. Cilnē “Sākums” noklikšķiniet uz sadaļas “Rediģēšana”. Atrodiet un iezīmējiet funkcijas programmā Excel. Pēc tam noklikšķiniet uz pogas "Aiziet". Parādītajā dialoglodziņā noklikšķiniet uz pogas “Atlasīt...”. Logā “Atlasīt šūnu grupu” atzīmējiet izvēles rūtiņu blakus “tikai redzamās šūnas”. Noklikšķiniet uz "OK". Tagad uz tā paša izvēlētā galda ar labo peli mēs saucam konteksta izvēlne. Noklikšķiniet uz funkcijas "Kopēt". Jaunā vietā (mūsu piemērā tā ir šūna A15) noklikšķiniet uz "Ievietot". Visi. Tas izrādījās šādi.
Kā, nekopējot, uzreiz drukāt filtru datus programmā Excel, skatiet rakstu "Grāmatzīme Excel lapa"Lapas izkārtojums"

Ielīmējiet tikai redzamajās līnijāsExcel skaitļus, formulas, tekstu var izdarīt vairākos veidos. Ja nepieciešams ievietot skaitļus, formulas, tekstu ne visās tabulas rindās, varat izmantot filtru. Kā instalēt filtru un kā filtrēt programmā Excel, skatiet rakstu “Filtrs programmā Excel”. Bet, lai datus ievietotu tikai redzamajās šūnās, ir nepieciešamas savas metodes, it īpaši, ja ir daudz rindu.
Pirmais veids ir parasts .
Paņemsim šādu tabulu. Tabula visiem piemēriem būs vienāda.
Izmantosim filtru, lai no tabulas noņemtu visus ciparus 2. Atlikušajās redzamajās šūnās ievietojam skaitli 600. Šūnā B2 ievietojam skaitli 600, pēc tam nokopējiet to kolonnā (izvelciet šūnas B2 apakšējo labo stūri). Vērtības tika kopētas tikai redzamajās šūnās. Tādā pašā veidā varat ievietot arī formulas. Šūnā C2 ierakstām šādu formulu. =A2*10
Tas izrādījās šādi.
Atcelsim filtru. Rezultāts ir šāda tabula.
Formula un skaitļi tika ievietoti tikai filtrētajās rindās.
Otrais veids.
Mēs arī filtrēsim datus. Pirmajā šūnā ierakstām skaitli, formulu, tekstu utt. Tagad, ja ir tūkstošiem rindu, atlasiet šūnas šādi: nospiediet taustiņus "Ctrl" + "Shift" + lejupvērstās bultiņas poga (vai pogu uz augšu, atkarībā no tā, kur mēs vēlamies atlasīt šūnas - zem vai virs šūna, kurā tika ierakstīts numurs) .
Tagad vai nospiediet taustiņu kombināciju “Ctrl” + G vai taustiņu F5. Parādīsies dialoglodziņš Pāreja. Noklikšķiniet uz pogas “Atlasīt...”. Un jaunajā dialoglodziņā “Atlasīt šūnu grupu” atzīmējiet izvēles rūtiņu blakus vārdiem “Tikai redzamās šūnas”.Noklikšķiniet uz "OK". Pēc tam ievietojiet kā parasti.

Vēl viens veids, kā atvērt dialoglodziņu Atlasīt šūnu grupu.Cilnes “Sākums” sadaļā “Rediģēšana” noklikšķiniet uz pogas “Atrast un atlasīt”. Parādītajā sarakstā noklikšķiniet uz funkcijas “Atlasīt šūnu grupu”.

Uz aizpildiet redzamās šūnas atlasītajās Excel kolonnās, nospiediet taustiņu kombināciju “Ctrl” + D. Un visas atlasītās kolonnas tiks aizpildītas ar datiem vai formulu, kā pirmajā šūnā. Mūsu piemērā mēs ierakstījām skaitli 800 šūnā D2, kolonnā D.

Trešais ceļš.
Jaunā kolonnā (mūsu piemērā kolonna E) atlasiet šūnas. Nospiediet taustiņu F5. Parādīsies dialoglodziņš Pāreja. Noklikšķiniet uz pogas “Atlasīt...”. Un jaunajā dialoglodziņā “Atlasīt šūnu grupu” atzīmējiet izvēles rūtiņu blakus vārdiem “Tikai redzamās šūnas”. Noklikšķiniet uz "OK". Tagad, neatceļot atlasi, kolonnas pirmajā šūnā (mūsējais ir E2) ievadiet formulu, skaitli utt. Nospiediet taustiņu kombināciju "Ctrl" + "Enter".