Note: The other languages of the website are Google-translated. Back to English

Hvordan kopieres og indsættes kun ikke-tomme celler i Excel?

De fleste af os kan lide under dette problem, når vi kopierer en liste med data, der indeholder nogle tomme celler, og derefter indsætter dem i en anden kolonne, bliver de tomme celler også indsat. Dette er meget irriterende, når vi ikke har brug for emnerne og kun ønsker at indsætte celler, der ikke er tomme. I dette tilfælde, hvordan kunne vi kun kopiere og indsætte ikke-tomme celler i Excel hurtigt og bekvemt? Her er nogle hurtige tricks, som du kan løse det:

Kopier og indsæt kun ikke-tomme celler med kommandoen Gå til speciel

Kopier og indsæt kun ikke-tomme celler med filterfunktionen

Kopier og indsæt kun ikke-tomme celler med Array Formula

Kopier og indsæt kun ikke-tomme celler med VBA-kode

Kopier og indsæt kun ikke-tomme celler med Kutools til Excel god idé3


pil blå højre boble Kopier og indsæt kun ikke-tomme celler med kommandoen Gå til speciel

Med Gå til Special kommando, kan du først vælge alle data og derefter kopiere og indsætte dem til en anden placering.

1. Vælg din liste over data, som du vil bruge.

doc-copy-only-nonblanks1

2. Klik derefter på Forside > Find og vælg > Gå til Special, se skærmbillede:

doc-copy-only-nonblanks1

3. I Gå til Special dialogboks, tjek Konstanter mulighed, se skærmbillede:

doc-copy-only-nonblanks1

4. Klik derefter på OK, og kun værdiecellerne er valgt på listen.

doc-copy-only-nonblanks1

5. Og kopier og indsæt derefter dataene til den ønskede placering. Og kun de ikke-tomme celleværdier er indsat. Se skærmbillede:

doc-copy-only-nonblanks1

Bemærk: Denne metode er kun tilgængelig for konstanterne, den anvendes ikke på formelcellerne.


pil blå højre boble Kopier og indsæt kun ikke-tomme celler med filterfunktionen

filtre funktionen kan hjælpe dig med at filtrere de ikke-tomme celler først, og derefter kan du kopiere og indsætte dem i andre celler, som du har brug for.

2. Klik data > filtre, se skærmbillede:

dok kopi kun nonblanks6

3. Klik derefter på rullemenuen i højre hjørne af cellen på den valgte liste, og fjern markeringen af Blanks under rullemenuen. Se skærmbillede:
doc-copy-only-nonblanks1

4. Og klik derefter på OK, alle de ikke-tomme celler er blevet filtreret ud som følgende skærmbillede vist:

doc-copy-only-nonblanks1

5. Endelig kan du kopiere de filtrerede data og indsætte dem til ethvert sted, du har brug for.

Bemærk: Både værdier og formler træder i kraft ved at bruge denne måde.


Vælg celler uden blanke på én gang

Klik for gratis prøveversion med alle funktioner 30 dage!
doc kutools vælger ikke tomme celler

pil blå højre boble Kopier og indsæt kun ikke-tomme celler med Array Formula

For at kopiere og indsætte kun de ikke-tomme celler kan du også anvende følgende matrixformel.

1. Ud over dine data skal du indtaste følgende formel i en tom celle:

=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))

doc-copy-only-nonblanks1

Bemærk: I ovenstående formel A1: A15 er den dataliste, du vil bruge. Du kan ændre den til dit behov.

2. Tryk derefter på Skift + Ctrl + Enter nøgler sammen, og vælg derefter celle B1, og træk udfyldningshåndtaget over til det område, du vil indeholde denne formel, og alle de ikke-tomme celleværdier er blevet ekstraheret. Se skærmbillede:

doc-copy-only-nonblanks1

3. Da de er formler, skal du kopiere og indsætte dem som værdier, når du kopierer dem til et andet sted.

Bemærk: Denne formel er kun tilgængelig for konstanterne, ikke anvendt på formelcellerne.


pil blå højre boble Kopier og indsæt kun ikke-tomme celler med VBA-kode

Hvis du er interesseret i VBA-kode, kan du udføre følgende kode for at afslutte denne opgave.

1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Kopier og indsæt kun celler, der ikke er tomme, i Excel

Sub PasteNotBlanks()
'Update 20140325
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
If InputRng.Columns.Count > 1 Then
    MsgBox "Please select one column."
    Exit Sub
End If
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
InputRng.SpecialCells(xlCellTypeConstants).Copy Destination:=OutRng.Range("A1")
End Sub

3. Tryk derefter på F5 nøgle til at køre denne kode, vises et promptfelt, der minder dig om at vælge det dataområde, du vil bruge. Se skærmbillede:

doc-copy-only-nonblanks1

4. Og klik derefter på OK, vises en anden promptboks, så du kan vælge en celle, der skal placeres i dataene.

doc-copy-only-nonblanks1

5. Klik OK for at afslutte denne kode, og kun de ikke-tomme celleværdier er indsat i din angivne position.

Bemærk: Denne kode er kun tilgængelig for konstanterne.


pil blå højre boble Kopier og indsæt kun ikke-tomme celler med Kutools til Excel

Er der nogen meget nemmere måde end ovenfor? Selvfølgelig, Kutools til Excel's Vælg Ikke-blank celles hjælpeprogram kan hjælpe dig med at vælge de ikke-blanke celler først og derefter kopiere og indsætte dem.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. Vælg celleområdet, og klik på Kutools > Type > Vælg Ikke-tomme celler. Se skærmbillede:
doc vælg ikke-blank celle 2

2. Derefter vælges de ikke-tomme celler, tryk på Ctrl + C for at kopiere dem, gå derefter til at vælge en celle, hvor du vil sende det valgte resultat, tryk på Ctrl + V for at indsætte valgte ikke-tomme celler. Se skærmbillede:
doc vælg ikke-blank celle 3

pil blå højre boble Kopier og indsæt kun ikke-tom celle

Kutools til Excel: 300+ funktioner, du skal have i Excel, 30-dags gratis prøveperiode herfra

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (11)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
tak for superformlen: =OPSLAG("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15"",ROW($A$1: $A$15)), RÆKKER($B$1:B1)))))
Denne kommentar blev minimeret af moderatoren på webstedet
Denne formel er helt fantastisk, tak. Desværre går den i stykker, når du prøver at kopiere fra et andet ark, er der en løsning?
Denne kommentar blev minimeret af moderatoren på webstedet
ret referencerne, når du bruger formlen mellem forskellige ark. Det virker. =OPSLAG("zzzzz",CHOOSE({1,2},"",INDEX('Liste over forfaldne varer'!A:A,SMALL(IF('Liste over forfaldne varer'!A$1:A$1500"", ROW('Liste over forfaldne varer'!A$1:A$1500)),ROWS('Liste over forfaldne varer'!B$1:B2)))))
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at få makroen til at fungere, når der refereres mellem forskellige ark?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej #abc Jeg har brugt din formel =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('Liste over forfaldne varer'!A:A,SMAL L(IF('Liste over forfaldne varer' !A$1:A$15 00"",ROW('Liste over forfaldne varer'!A$1:A$15 00)),ROWS('Liste over forfaldne varer'!B$1:B2)) ))) Jeg har data i ét regneark og ønsker at kopiere disse data til et andet regneark (samme dokument). Kan du hjælpe?
Denne kommentar blev minimeret af moderatoren på webstedet
Disse værktøjer sletter de tomme celler og komprimerer rækken. Jeg ønsker, at formatet skal bevares, inklusive mellemrummene, men jeg vil ikke have, at tomme celler overskriver celler, der indeholder eksisterende data. dvs. jeg vil tilføje de nye, kopierede celler i en kolonne til en eksisterende kolonne.
Denne kommentar blev minimeret af moderatoren på webstedet
Når jeg kun vælger og kopierer ikke-tomme celler, hvordan kan jeg så indsætte det et andet sted med de samme tomme områder mellem dem?
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for de gode tips! Jeg bruger funktionen Find og vælg, men det tager lang tid, fordi mit regneark indeholder 70 kolonner og 450 rækker. Er der en måde at fastgøre processen?
Denne kommentar blev minimeret af moderatoren på webstedet
Arbejder ikke på numre!!!
Fungerer fint på tekst!!!
Venligst vejledning
Denne kommentar blev minimeret af moderatoren på webstedet
Matrixformel Fungerer fint på tekst
men arbejd ikke med tal.
Denne kommentar blev minimeret af moderatoren på webstedet
=Filter(A:A,A:A<>"")
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL