Ehdollinen muotoilu (5)
Luettelot ja alueet (5)
Makrot (VBA-menettelyt) (63)
Muut (39)
Excel-virheet ja häiriöt (4)

Kopioitujen solujen liittäminen vain näkyviin/suodatettuihin soluihin

Yleisesti ottaen artikkelin merkitys on mielestäni selvä jo otsikosta. Laajennan sitä hieman.

Ei ole mikään salaisuus, että Excelin avulla voit valita vain näkyvät rivit (esimerkiksi jos osa niistä on piilotettu tai suodatin on käytössä).

Joten jos kopioit tällä tavalla vain näkyvät solut, ne kopioidaan odotetulla tavalla. Mutta kun yrität liittää jotain, joka on kopioitu suodatetulle alueelle (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äkyviin soluihin
Voit lisätä tietoja vain näkyviin soluihin käyttämällä seuraavaa makroa:

Vaihtoehto Explicit Dim rCopyRange As Range "Tällä makrolla kopioimme tiedot Sub My_Copy() Jos valinta.Laskuri > 1 Aseta rCopyRange = Selection.SpecialCells(xlVisible) Else : 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 then Viestilaatikko "Liitetty alue saa sisältää enintään yhden alueen!",vbCritical, "Virheellinen alue": Exit Sub Dim rCell As Range, li As Long , le As Long , lCount As Long , iCol As Integer , iCalculation As Integer Application.ScreenUpdating = Väärä iLaskenta = Sovellus.Laskennat: Application.Calculation = -4135 For rcCoolpyan .Columns.Count li = 0: lCount = 0: le = iCol - 1 jokaiselle rCell in rCopyRange.Columns(iCol).Cells Tee If ActiveCell.Offset(li, le).KokoSarake.Piilotettu = False ja _ ActiveCell.Offset (li, le).KokoRivi.Piilotettu = False Then rCell.Copy ActiveCell.Offset(li, le): lCount = lCount + 1 End If li = li + 1 Loop While lCount >= rCell.Row - rCopyRange.Cells(1) ).Rivi Seuraava rCell Seuraava iCol Application.ScreenUpdating = True : Application.Calculation = iLaskennan lopetusali

Vaihtoehto Explicit Dim rCopyRange As Range "Käytä tätä makroa tietojen kopioimiseen Sub My_Copy() If Selection.Count > 1 then Set rCopyRange = Selection.SpecialCells(xlVisible) Muussa tapauksessa: Aseta rCopyRange = ActiveCell End If End Sub "Käytä tätä makroa liittämiseen tiedot alkavat valituista soluista Sub My_Paste() If rCopyRange ei ole mitään sitten Exit Sub If rCopyRange.Areas.Count > 1 Then MsgBox "Liitetty alue ei saa sisältää enempää kuin yksi alue!", 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ä .Count li = 0: lCount = 0: le = iCol - 1 jokaiselle rCell:lle rCopyRange.Columns(iCol).Cells Do If ActiveCell.Offset(li, le).KokoSarake.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). Rivi Seuraava rCell Seuraava iCol Application.ScreenUpdating = Tosi: Application.Calculation = iLaskennan lopetusali

Kuvan täydentämiseksi on parempi määrittää nämä makrot pikanäppäimille (alla olevissa koodeissa tämä tapahtuu automaattisesti avattaessa kirjaa koodilla). Voit tehdä tämän kopioimalla alla olevat koodit moduuliin Tämä kirja (Tämä työkirja) :

Vaihtoehto Explicit "Peruuta pikanäppäinten määritys ennen työkirjan sulkemista Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "^q": Application.OnKey "^w" End Sub "Määritä pikanäppäimet työkirjaa avattaessa 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 tarkentaa tätä menettelyä. Nyt on mahdollista kopioida mitä tahansa alueita: piilotetuilla riveillä, piilotetuilla sarakkeilla ja liittää kopioidut solut myös mihin tahansa alueeseen: piilotettuihin riveihin, piilotettuihin sarakkeisiin. Se 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 liitä pikanäppäimellä Ctrl + w . Lisäys suoritetaan myös piilotetuissa/suodatetuissa riveissä ja sarakkeissa tai ilman piilotettuja.
Jos kopioitu alue sisältää kaavoja, voit kopioida vain solujen arvot välttääksesi viittauksen siirtymisen - ts. Arvoja lisättäessä ei lisätä kaavoja, vaan niiden laskennan tulos. Tai jos on tarpeen säilyttää niiden solujen muodot, joihin lisäys 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.Arvo

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

Molemmat rivit ovat alla olevassa tiedostossa, sinun tarvitsee vain jättää se, joka sopii paremmin tehtäviisi.

Lataa esimerkki:

(54,5 KiB, 7 928 latausta)

Katso myös:
[]

Auttoiko artikkeli? Jaa linkki ystävillesi! Video-opetusohjelmat

("Bottom bar":("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":"oikea","texteffectslidedistance1":120,"texteffecteasing1":"easeOutCubic","texteffectduration1":600 "tekstiefekti textcss":"display:block:left;" ","titlecss":"display:block; sijainti:suhteellinen; font:bold 14px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; color:#fff;","descriptioncss":"display:block; sijainti:suhteellinen; font:12px \"Lucida Sans Unicode\",\"Lucida Grande\",sans-serif,Arial; väri:#fff; margin-top:8px;","buttoncss":"display:block; sijainti:suhteellinen; margin-top:8px;","texteffectresponsive":true,"texteffectresponsivesize":640,"titlecssresponsive":"font-size:12px;","descriptioncssresponsive":"display:none !important;","buttoncssresponsive": "","addgooglefonts":false"googlefonts":"","textleftrightpercentforstatic":40))

Jos jotkin laskentataulukon solut, rivit tai sarakkeet eivät ole näkyvissä, voit kopioida kaikki solut (tai vain näkyvät solut). Oletusarvoisesti Excel kopioi näkyvien solujen lisäksi myös piilotettuja tai suodatettuja soluja. Jos haluat kopioida vain näkyvät solut, noudata alla olevia ohjeita. Voit esimerkiksi kopioida vain yhteenvetotiedot jäsennellystä laskentataulukosta.

Noudata alla olevia ohjeita.

Huomautus: Kun kopioit, arvot lisätään peräkkäin riveihin ja sarakkeisiin. Jos liittämisalue sisältää piilotettuja rivejä tai sarakkeita, sinun on ehkä näytettävä ne, jotta näet kaikki kopioimasi tiedot.

Kun kopioit ja liität näkyviä soluja tietoalueella, joka sisältää piilotettuja soluja tai jossa on käytössä suodatin, saatat huomata, että piilotetut solut liitetään näkyvien solujen mukana. Valitettavasti et voi muuttaa tätä asetusta, kun kopioit ja liität solualueen Excelin verkkoversiossa, koska vain näkyvien solujen liittäminen ei ole mahdollista.

Jos kuitenkin muotoilet tietosi taulukoksi ja käytät suodatinta, voit kopioida ja liittää vain näkyvät solut.

Jos et halua muotoilla tietojasi taulukoksi ja sinulla on työpöytä-Excel asennettuna, voit kopioida ja liittää näkyviä soluja avaamalla työkirjan Excelissä. Voit tehdä tämän napsauttamalla -painiketta Avaa Excelissä ja noudata kohdan Vain näkyvien solujen kopioiminen ja liittäminen ohjeita.

Lisätietoja

Voit aina esittää kysymyksen Excel Tech Community -asiantuntijalle, pyytää apua Answers-yhteisöstä ja myös ehdottaa uusi ominaisuus tai parannus verkkosivuilla

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.
Mietitään kahta tapaa, Vastaanottaja Suodatettujen rivien kopioiminen Excelissä.
Ensimmäinen tapa.
Excelissä on hieno toiminto - Liitä erikoistoiminto Exceliin.
Meillä on siis pöytä.
Suodattimen asentaminen, katso artikkeli " Suodata Excelissä".
Käytämme suodatinta poistaaksemme kaikki Ivanovit luettelosta. Siitä tuli näin.
Valitse taulukko ja napsauta "Kopioi" pikavalikosta. Napsauta hiiren vasemmalla painikkeella solua A9 ja valitse pikavalikosta "arvot".
Napsauta "OK". Voila. Näkyvien rivien arvon lisäksi kopioitiin myös solujen muoto.
On yksi vivahde- lisää suodatettua tietoa riveille, joissa suodatin sijaitsee. Esimerkiksi esimerkissämme - ei riveillä 1-7, vaan alla tai toisella arkilla jne. Jos liitämme riveille, joissa suodatin sijaitsee, suodatetut tiedot lisätään myös suodattimen piilottamille riveille. Yleisesti ottaen se tulee olemaan sotku. Toinen tapa.
Pöytä on sama. Valitse taulukko, jossa on suodatetut tiedot. Napsauta "Etusivu"-välilehden "Muokkaa"-osiota Etsi ja korosta toimintoja Excelissä. Napsauta sitten "Go"-painiketta. Napsauta näkyviin tulevassa valintaikkunassa "Valitse..." -painiketta. Valitse "Valitse soluryhmä" -ikkunassa "vain näkyvät solut" -kohdan vieressä oleva valintaruutu. Napsauta "OK". Nyt samassa valitussa pöydässä oikealla hiirellä soitamme kontekstivalikko. Napsauta "Kopioi" -toimintoa. Napsauta uudessa paikassa (esimerkissämme solu A15) "Lisää". Kaikki. Siitä tuli näin.
Kuinka, kopioimatta, heti tulostaa suodatintiedot excelissä, katso artikkeli "Kirjanmerkki Excel-taulukko"Sivun asettelu"

Liitä vain näkyville riveilleExcel numeroita, kaavoja, 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 jos haluat lisätä tietoja vain näkyviin soluihin, tarvitset omat menetelmät, varsinkin jos rivejä on useita.
Ensimmäinen tapa on tavallinen .
Otetaan tällainen pöytä. Taulukko on sama kaikissa esimerkeissä.
Poistamme taulukosta kaikki numerot 2 suodattimen avulla. Jäljelle jääviin näkyviin soluihin laitetaan luku 600. Soluun B2 laitetaan numero 600 ja kopioidaan se sitten alas sarakkeessa (vedä solun B2 oikeasta alakulmasta). Arvot kopioitiin vain näkyviin soluihin. Voit myös lisätä kaavoja samalla tavalla. Kirjoitamme seuraavan kaavan soluun C2. =A2*10
Siitä tuli näin.
Perutaan suodatin. Tuloksena on tällainen taulukko.
Kaava ja numerot lisättiin vain suodatetuille riveille.
Toinen tapa.
Suodatamme myös tiedot. Ensimmäiseen soluun kirjoitamme numeron, kaavan, tekstin jne. Jos rivejä on nyt tuhansia, valitse solut seuraavasti: paina näppäimiä “Ctrl” + “Shift” + alanuolipainike (tai ylös-painike, riippuen siitä, mistä haluamme valita solut - alla tai yläpuolella solu, johon numero kirjoitettiin) .
Nyt, tai paina näppäinyhdistelmää “Ctrl” + G tai F5-näppäintä. Siirtymävalintaikkuna tulee näkyviin. Napsauta "Valitse..." -painiketta. Ja valitse uudessa "Valitse soluryhmä" -valintaikkunassa teksti "Vain näkyvät solut" -valintaruutu.Napsauta "OK". Aseta sitten tavalliseen tapaan.

Toinen tapa tuoda esiin Valitse soluryhmä -valintaikkuna.Napsauta "Etusivu"-välilehden "Muokkaus" -osiossa "Etsi ja valitse" -painiketta. Napsauta näkyviin tulevassa luettelossa "Valitse soluryhmä" -toimintoa.

Vastaanottaja täyttää näkyvät solut valituissa Excel-sarakkeissa, paina näppäinyhdistelmää “Ctrl” + D. Ja kaikki valitut sarakkeet täytetään tiedoilla tai kaavalla, kuten ensimmäisessä solussa. Esimerkissämme kirjoitimme luvun 800 soluun D2, sarakkeeseen D.

Kolmas tapa.
Valitse solut uudessa sarakkeessa (esimerkissämme sarakkeessa E). Paina F5-näppäintä. Siirtymävalintaikkuna tulee näkyviin. Napsauta "Valitse..." -painiketta. Ja valitse uudessa "Valitse soluryhmä" -valintaikkunassa teksti "Vain näkyvät solut" -valintaruutu. Napsauta "OK". Nyt, peruutamatta valintaa, kirjoita sarakkeen ensimmäiseen soluun (meidän on E2) kaava, numero jne. Paina näppäinyhdistelmää "Ctrl" + "Enter".