Ugrás a tartalomra

Hogyan lehet beilleszteni az adatokat a szűrt listába, csak az Excel rejtett sorait kihagyva?

Mint mindannyian tudjuk, amikor megpróbálunk értékeket beilleszteni egy szűrt táblázatlistába, a rejtett sorok nem kerülnek át, így rossz eredményt kapunk. Például két munkalapom van, az 1. lap tartalmazza a kiszűrt adatokat, a 2. lap pedig azokat az adatokat, amelyeket be akarok illeszteni a szűrt 1. lapra, az alábbi képernyőképek szerint. Van-e olyan funkció, amellyel az adatokat csak az Excelben tudjuk beilleszteni a szűrt sorokba?

doc-paste-to-filtered-data-1 doc-paste-to-filtered-data-2

Illessze be az adatokat az Excel szűrt listájába segítő oszlopokkal

Illessze be az adatokat az Excel szűrt listájába a Kutools for Excel segítségével


nyíl kék jobb buborék Illessze be az adatokat az Excel szűrt listájába segítő oszlopokkal

Az adatok szűrt listába történő beillesztéséhez alkalmaznia kell néhány segítő oszlopot, kérjük, tegye a következőket lépésről lépésre:

1. Először kattintson a gombra dátum > Szűrő a szűrő eltávolításához, és írja be 1, 2 külön a C2 és C3 cellába, amelyet a szűrő oszlop mellett, majd válassza ki a C2 és C3 cellát, majd húzza a kitöltő fogantyút az 1. lap adatainak megfelelő cellákhoz. Lásd a képernyőképet:

doc-paste-to-filtered-data-3

2. Ezután kattintson ismét az adatok szűrésére dátum > Szűrő, ebben a példában a „KTE” -et leszűröm az 1. lapról, és beírom ezt a képletet = ROW () a D2 cellába, majd töltse ki ezt a képletet a látható oszlopokra, amelyekre a D oszlopban szüksége van, lásd a képernyőképeket:

doc-paste-to-filtered-data-4 2 doc-paste-to-filtered-data-5

3. Ezután törölje újra a szűrőt, és rendezze az adatokat a D oszlop szerint növekvő sorrendben, az összes KTE elemet rendezték, lásd a képernyőképet:

doc-paste-to-filtered-data-4

4. Ezután átmásolhatja az A1: B6 adatokat a 2. lapra, és beillesztheti az 2. lap A7: B1 tartományába.

doc-paste-to-filtered-data-4

5. Ezután vissza kell állítania az eredeti adatsorrendet, kattintson a C oszlopra, és rendezze az adatokat növekvően, lásd a képernyőképet:

doc-paste-to-filtered-data-4

6. És az adatrend helyreállt, majd szükség szerint törölheti a C és a D oszlop tartalmát, végül kiszűrheti a szükséges adatait, és láthatja, hogy a szűrt adatokat sikeresen kicserélték az új adatokra.

doc-paste-to-filtered-data-4


nyíl kék jobb buborék Illessze be az adatokat az Excel szűrt listájába a Kutools for Excel segítségével

Az első módszer túl bonyolult az alkalmazásához, ezért itt bemutatok egy praktikus eszközt - Kutools az Excel számára, Annak Beillesztés a látható tartományba funkcióval, sok erőfeszítés nélkül gyorsan beillesztheti az adatokat a szűrt listába.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Először válassza ki az adatrendezést, amelyet át szeretne másolni és beilleszteni a szűrt listába. Ezután kattintson Kutools > Választék > Beillesztés a látható tartományba, lásd a képernyőképet:

doc-paste-to-filtered-data-4

2. És akkor a Beillesztés a látható tartományba megjelenik a prompt doboz, kattintson egy cellára vagy egy tartomány cellára, ahová be akarja illeszteni az új adatokat, lásd a képernyőképet

doc-paste-to-filtered-data-4

3. Ezután kattintson OK gombra, az új adatokat csak a szűrt listába illesztette be, és a rejtett sorok adatait is megőrzi.

(1.) Ha úgy dönt Csak az értékek beillesztése opciót, csak az értékeket illesztjük be a szűrt adatokba, lásd: screesnhot:

doc-paste-to-filtered-data-4

(2.) Ha úgy dönt Minden termék opciót, az értékeket, valamint a formázást beillesztjük a szűrt adatokba, lásd: screesnhot:

doc-paste-to-filtered-data-4

Kattintson ide, ha többet szeretne megtudni erről a Paste to Visible Range segédprogramról.


nyíl kék jobb buborék A cellaértékek másolása és beillesztése látható vagy szűrt cellákba csak a Kutools for Excel segítségével:

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (9)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Hallo zusammen, ich habe die Version mit den Hilfsspalten soeben ausprobiert und mit ein paar kleinen Änderungen, funktioniert es auch in M365: = REIHE () gibt es nicht mehr, das heißt jetzt: =ZEILE()
Nachdem ich diese Formel eingefügt habe, habe ich (in meiner gefilterten Liste) die Werte, die bei =ZEILE() angezeigt werden farbig markiert. Erst anschließend habe ich wieder den Filter entfernt und die Liste nach der ausgewählten Farbe sortiert. Fertig! So kann man die obersten (farbigen) Zellen nun bearbeiten und Daten einfügen.
This comment was minimized by the moderator on the site
Muchas gracias, me sirvió mucho. Toda una tarde estaba viendo manera, pero con Kutools for Excel la vida es mas facil
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hello, Saul,
Glad the Kutools can help you, 😀
This comment was minimized by the moderator on the site
Not working. I tried in Office 2007. I copied range of cell and try to paste into visible cells, the clipboard data deleted but its not pasting. Try to provide solution
This comment was minimized by the moderator on the site
A mon niveau c'est pareil, ça ne fonctionne pas. Existe-t-il autre solution ?
This comment was minimized by the moderator on the site
Hello, friends
If the above method can not work well, here, you can also use the below VBA code: (Note: Before using the code, you should backup your data, the code doesn't support undo.)
Sub CopyFilteredCells()
	'Updateby Extendoffice
	Dim rng1 As Range
	Dim rng2 As Range
	Dim InputRng As Range
	Dim OutRng As Range
	xTitleId     = "KutoolsforExcel"
	Set InputRng = Application.Selection
	Set InputRng = Application.InputBox("Copy Range :", xTitleId, InputRng.Address, Type: = 8)
	Set OutRng   = Application.InputBox("Paste Range:", xTitleId, Type: = 8)
	For Each rng1 In InputRng
		rng1.Copy
		For Each rng2 In OutRng
			If rng2.EntireRow.RowHeight > 0 Then
				rng2.PasteSpecial
				Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
				Exit For
			End If
		Next
	Next
	Application.CutCopyMode = False
End Sub


Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
I spent hours trying to solve this until I eventually found this awesome website. Thanks!
This comment was minimized by the moderator on the site
Very helpful and straightforward. I was looking everywhere on the internet and did not find anything. Or tutorials to achieve something else :) Thanks a lot
This comment was minimized by the moderator on the site
YOU. ARE. BAE. AND. THE. GOAT. But seriously thanks so much! I have been looking everywhere for help on this!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations