Tietojen valinta Excelissä tehtiin suodattimen tai lajittelun avulla. Nyt ne on tulostettava tai siirrettävä toiseen paikkaan. Kopioi Exceliin määritetty niin, että myös piilotetut solut kopioidaan.
Harkitse kahta tapaa, Vastaanottaja
Suodatettujen rivien kopioiminen Excelissä.
Ensimmäinen tapa.
Excelissä on hieno ominaisuus - toiminto "Liitä määräten" Excelissä.
Meillä on siis pöytä.
Suodattimen asentaminen, katso artikkeli " Suodata Excelissä".
Poistamme kaikki Ivanovit luettelosta suodattimella. Siitä tuli näin.
Valitse taulukko, napsauta "Kopioi" pikavalikosta. Napsauta hiiren vasemmalla painikkeella solua A9, valitse pikavalikosta "arvot".
Napsauta "OK". Voila. Näkyvien viivojen arvon lisäksi kopioitiin myös solujen muoto.
On yksi varoitus- sijoita suodatetut tiedot riveille, joissa suodatin sijaitsee. Esimerkiksi esimerkissämme - ei riveillä 1-7, vaan alla tai toisella arkilla jne. Jos lisäämme riveille, joissa suodatin sijaitsee, suodatetut tiedot lisätään suodattimen piilottamille riveille. Yleensä siitä tulee puuroa. 
Toinen tapa.
Pöytä on sama. Valitse taulukko, jossa on suodatettuja tietoja. Paina "Etusivu"-välilehden "Muokkaus"-osiossa olevaa painiketta Etsi ja valitse toimintoja Excelissä... Napsauta sitten "Go"-painiketta. Napsauta näkyviin tulevassa valintaikkunassa "Valitse..." -painiketta. Ikkunassa "Valitse soluryhmä" laita valintamerkki rivin "vain näkyvät solut" viereen. Napsauta "OK". 
Avaa nyt samassa valitussa taulukossa kontekstivalikko hiiren oikealla painikkeella. Paina toimintoa "Kopioi". Napsauta uudessa sijainnissa (esimerkissämme solu A15) "Lisää". Kaikki. Siitä tuli näin.
Kuinka, kopioimatta, heti tulostaa suodatintiedot Excelissä, katso artikkeli "Kirjanmerkki Excel-laskentataulukko"Sivun asettelu""
Liitä vain näkyvät viivatExcel numerot, kaavat, teksti voidaan tehdä useilla tavoilla. Kun sinun on lisättävä numeroita, kaavoja tai tekstiä ei kaikille taulukon riveille, voit käyttää suodatinta. Suodattimen asentaminen ja suodattaminen Excelissä on artikkelissa "Suodatin Excelissä". Mutta jotta voit lisätä tietoja vain näkyviin soluihin, tarvitset omia tapojasi, varsinkin jos rivejä on paljon.
Ensimmäinen tapa on normaali .
Otetaan tällainen pöytä. Taulukko on sama kaikille esimerkeille.
Suodatetaan kaikki luvut 2 taulukosta. Laita jäljellä oleviin näkyviin soluihin luku 600. Syötä luku 600 soluun B2 ja kopioi se sitten alas sarakkeessa (vedä solun B2 oikeasta alakulmasta). Arvot kopioitiin vain näkyviin soluihin. Voit lisätä kaavoja samalla tavalla. Kirjoitamme seuraavan kaavan soluun C2. = A2 * 10
Siitä tuli näin. 
Perutaan suodatin. Tuloksena on tällainen taulukko.
Kaavat ja numerot lisättiin vain suodatetuille riveille.
Toinen tapa.
Suodatetaan myös tiedot. Ensimmäiseen soluun kirjoitamme numeron, kaavan, tekstin jne. Jos rivejä on nyt tuhansia, valitse solut näin: paina "Ctrl" + "Shift"-näppäimiä + (nuoli) alas-painike (tai ylös-painike, riippuen siitä, mistä haluamme valita solut - alla tai sen solun yläpuolelle, johon numero kirjoitettiin) ...
Nyt, tai paina näppäinyhdistelmää "Ctrl" + G tai F5-näppäintä. Siirry-valintaikkuna tulee näkyviin. Paina painiketta "Valitse ...". Ja uudessa valintaikkunassa "Valitse soluryhmä" laita valintamerkki sanojen "Vain näkyvät solut" viereen.Napsauta "OK". Sitten liitetään tavalliseen tapaan.
Toinen tapa kutsua "Valitse soluryhmä" -valintaikkuna.Napsauta "Etusivu"-välilehden "Muokkaus" -osiossa "Etsi ja valitse" -painiketta. Napsauta näkyviin tulevassa luettelossa "Valitse soluryhmä" -toimintoa.
Vastaanottaja täytä valitut näkyvät solut Excelin sarakkeet , paina näppäinyhdistelmää "Ctrl" + D. Ja kaikki valitut sarakkeet täytetään tiedoilla tai kaavalla, kuten ensimmäisessä solussa. Esimerkissämme kirjoitimme 800 soluun D2, sarakkeeseen D.
Kolmas tapa.
Yleisesti ottaen artikkelin merkitys on mielestäni selvä jo otsikosta. Laajennan hieman.
Ei ole mikään salaisuus, että Excel sallii vain näkyvien rivien valitsemisen. (esimerkiksi jos osa niistä on piilotettu tai suodatin on käytössä).
Joten jos kopioit vain näkyvät solut tällä tavalla, ne kopioidaan odotetulla tavalla. Mutta kun yrität liittää kopioitua suodatettuun alueeseen (tai joka sisältää piilotettuja rivejä), liittämisen tulos ei ole juuri sitä mitä odotit. Tiedot lisätään jopa piilotettuihin riveihin.
Kopioi yksittäinen solualue ja liitä vain näkyvät solut
Jos haluat lisätä tietoja vain näkyviin soluihin, voit käyttää seuraavaa makroa:
| Vaihtoehto Explicit Dim rCopyRange As Range "Tällä makrolla kopioimme tiedot Sub My_Copy () Jos Selection.Count> 1 Aseta rCopyRange = Selection.SpecialCells (xlVisible) Muu: Aseta rCopyRange = ActiveCell End If End Sub "Tällä makrolla lisäämme tiedot valitusta solusta alkaen Sub My_Paste () Jos rCopyRange ei ole mitään, poistu aliarvosta, jos rCopyRange.Areas.Count> 1 sitten MsgBox "Lisättävä alue saa sisältää enintään yhden alueen!", vbCritical, "Virheellinen alue": Poistu Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol As Integer, iCalculation As Integer Application.ScreenUpdating = Väärä iCalculation = Application.Calculation: Application.Calculation = -4135 For iCopyR = 1 .Columns.Count li = 0: lCount = 0: le = iCol - 1 jokaiselle rCell:lle rCopyRange.Columns (iCol) .Cells Do If ActiveCell.Offset (li, le) .Koko sarake.Piilotettu = False ja _ ActiveCell.Offset (li, le) .KokoRivi.Piilotettu = False Sitten 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 = iLaskenna End Sub |
Vaihtoehto Explicit Dim rCopyRange As Range "Tällä makrolla kopioimme tiedot Sub My_Copy () If Selection.Count> 1 then Set rCopyRange = Selection.SpecialCells (xlVisible) Muussa tapauksessa: Aseta rCopyRange = ActiveCell End If End Sub" Tällä makrolla liitetään tiedot, alkaen valituista soluista Sub My_Paste () If rCopyRange ei ole mitään sitten Exit Sub If rCopyRange.Areas.Count> 1 Then MsgBox "Liitettävä alue ei saa sisältää useampaa kuin yhtä aluetta!", vbCritical, "Virheellinen alue ": Poistu Sub Dim rCell As Range, li As Long, le As Long, lCount As Long, iCol As Integer, iCalculation As Integer Application.ScreenUpdating = Väärä iCalculation = Application.Calculation: Application.Calculation = -4135 For iCol = 1 rCopyRange.Columns.Count li = 0: lCount = 0: le = iCol - 1 jokaiselle rCell:lle rCopyRange.Columns (iCol) .Cells Do If ActiveCell.Offset (li, le) .EntireColumn.Hidden = False ja _ ActiveCell. Offset (li, le) .EntireRow.Hidden = False Sitten 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 = iLaskenna End Sub
Täydellisyyden vuoksi on parempi määrittää nämä makrot pikanäppäimille (alla olevissa koodeissa tämä tapahtuu automaattisesti, kun avaat kirjan koodilla). Tätä varten alla olevat koodit tarvitsee vain kopioida moduuliin Tämä kirja (Tämä työkirja) :
Vaihtoehto Explicit "Poista pikanäppäinten määrittäminen ennen kirjan sulkemista Private Sub Workbook_BeforeClose (Cancel As Boolean) Application.OnKey" ^ q ": Application.OnKey" ^ w "End Sub" Määritä pikanäppäimet, kun kirjaa avataan Private Sub Workbook_Open () Application.OnKey " ^ q", "My_Copy": Application.OnKey "^ w", "My_Paste" End Sub
Nyt voit kopioida haluamasi alueen painamalla näppäimiä Ctrl + q ja aseta se suodatettuun - Ctrl + w .
Lataa esimerkki
(46,5 KiB, 9 622 latausta)
Kopioi vain näkyvät solut ja liitä vain näkyvät solut
Sivuston vierailijoiden pyynnöstä päätin muuttaa tätä menettelyä. Nyt on mahdollista kopioida mitä tahansa alueita: piiloriveillä, piilotetuilla sarakkeilla ja liittää kopioidut solut myös mihin tahansa alueeseen: piilotettuihin riveihin, piilotettuihin sarakkeisiin. Toimii täsmälleen samalla tavalla kuin edellinen: painamalla näppäimiä Ctrl
+
q
kopioi haluttu alue (piilotetut / suodatetut rivit ja sarakkeet tai piilotetut), ja lisää se pikanäppäimellä Ctrl
+
w
... Lisäys suoritetaan myös piilotetuille / suodatetuille riveille ja sarakkeille tai ilman piilotettuja.
Jos kopioitu alue sisältää kaavoja, voit kopioida vain solujen arvot, jotta vältytään viitteiden siirtymisestä. kun lisäät arvoja, kaavoja ei lisätä, vaan niiden laskennan tulos. Tai jos haluat säilyttää niiden solujen muodot, joihin liittäminen tapahtuu, vain solujen arvot kopioidaan ja liitetään. Voit tehdä tämän korvaamalla koodin rivin (alla olevassa tiedostossa):
| rCell.Copy rResCell.Offset (lr, lc) |
rCell.Copy rResCell.Offset (lr, lc)
tähän:
| rResCell.Offset (lr, lc) = rCell.Value |
rResCell.Offset (lr, lc) = rCell.Value
Alla olevassa tiedostossa molemmat rivit ovat läsnä, sinun on vain jätettävä se, joka sopii tehtäviisi paremmin.
Lataa esimerkki:
(54,5 KiB, 7 928 latausta)
Katso myös:
[]
("Bottom bar" :( "textstyle": "staattinen", "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 , "tekstiefekti :" näyttö: lohko; täyttö: 12px; tekstin tasaus: vasemmalle; "," textbgcss ":" näyttö: lohko; sijainti: absoluuttinen; ylhäällä: 0px; vasen: 0px; leveys: 100 %; korkeus: 100 % ; tausta -väri: # 333333; peittävyys: 0,6; suodatin: a lpha (opasiteetti = 60); "," titlecss ":" näyttö: lohko; asema: suhteellinen; fontti: lihavoitu 14px \ "Lucida Sans Unicode \", \ "Lucida Grande \", sans-serif, Arial; color: #fff; "," descriptioncss ":" display: block; asema: suhteellinen; fontti: 12px \ "Lucida Sans Unicode \", \ "Lucida Grande \", sans-serif, Arial; väri: #fff; margin-top: 8px; "," buttoncss ":" näyttö: block; asema: suhteellinen; margin-top: 8px; "," texteffectresponsive ": true," texteffectresponsive ": 640," titlecssresponsive ":" font-size: 12px; "," descriptioncssresponsive ":" display: none! tärkeä; "," buttoncssresponsive ": "", "addgooglefonts": false, "googlefonts": "", "textleftrightpercentforstatic": 40))
