Μετάβαση στο κύριο περιεχόμενο

Πώς να επικολλήσετε τιμές σε ορατά / φιλτραρισμένα κελιά μόνο στο Excel;

Στο Excel, εάν έχετε φιλτράρει δεδομένα ή έχετε αποκρύψει ορισμένα κελιά και όταν επικολλάτε τιμές στο φιλτραρισμένο ή κρυφό εύρος, τα κρυφά κελιά θα γεμίσουν επίσης με επικολλημένες τιμές. Εδώ θα σας πω μερικά κόλπα για να επικολλήσετε τιμές σε ορατά κελιά μόνο στο Excel.

Επικόλληση τιμών σε ορατά κελιά με VBA

Επικόλληση τιμών σε ορατά κελιά με Επικόλληση σε ορατό εύρος Kutools για Excel καλή ιδέα3


Επικόλληση τιμών σε ορατά κελιά με VBA

Στο Excel, δεν υπάρχουν άλλοι τρόποι επίλυσης αυτού του προβλήματος εκτός από το VBA.

1. Τύπος Alt + F11 ταυτόχρονα πλήκτρα, και a Microsoft Visual Basic για εφαρμογές σκάει το παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε κάτω από τον κώδικα VBA στο αναδυόμενο παράθυρο Module.

VBA: Επικόλληση τιμών μόνο σε ορατά κελιά.

Sub CopyFilteredCells()
	'Updateby20150203
	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

3. κλικ F5 κλειδί ή το τρέξιμο κουμπί, και μετά εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε τιμές για αντιγραφή. Δείτε το στιγμιότυπο οθόνης:
doc-paste-σε-ορατό-cell-1

4. Αφού επιλέξετε τιμές, κάντε κλικ στο OK, στη συνέχεια εμφανίζεται ένα άλλο παράθυρο διαλόγου για να επιλέξετε μια περιοχή για επικόλληση των επιλεγμένων δεδομένων. Δείτε το στιγμιότυπο οθόνης:
doc-paste-σε-ορατό-cell-2

5. κλικ OK. Μπορείτε να δείτε μόνο τα ορατά κελιά που επικολλούνται στις επιλεγμένες τιμές.


Επικόλληση τιμών σε ορατά κελιά με Επικόλληση σε ορατό εύρος Kutools για Excel

Στην πραγματικότητα, αν χρησιμοποιείτε Επικόλληση σε ορατό εύρος χρησιμότητα του Kutools για Excel - ένα εύχρηστο εργαλείο Excel, μπορείτε να λύσετε γρήγορα και εύκολα το πρόβλημα της επικόλλησης τιμών σε ορατό εύρος.
doc paste ορατό κελί 6

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:(Δωρεάν λήψη Kutools για Excel τώρα!)

1. Επιλέξτε ένα εύρος τιμών που θέλετε να αντιγράψετε και να επικολλήσετε και, στη συνέχεια, κάντε κλικ στο Kutools > Σειρά > Επικόλληση σε ορατό εύρος > Όλα or Μόνο επικόλληση τιμών. Δείτε το στιγμιότυπο οθόνης:
doc paste ορατό κελί 7

2. Τότε α Επικόλληση σε ορατό εύρος εμφανίζεται το παράθυρο διαλόγου και επιλέξτε το εύρος που θέλετε να επικολλήσετε τις τιμές. Δείτε το στιγμιότυπο οθόνης:
doc paste ορατό κελί 8

3. κλικ OK. Τώρα οι επιλεγμένες τιμές επικολλούνται μόνο στο ορατό εύρος.

Επικόλληση μόνο τιμών σε ορατά κελιά Επικολλήστε όλα σε ορατά κελιά
doc paste ορατό κελί 9 doc paste ορατό κελί 10


Σημείωση:
Αυτό το βοηθητικό πρόγραμμα λειτουργεί και σε κρυφές και φιλτραρισμένες γραμμές ή στήλες

Κάντε κλικ εδώ για περισσότερες πληροφορίες σχετικά με το βοηθητικό πρόγραμμα Επικόλληση σε ορατό εύρος.

  Επικόλληση μόνο σε ορατά κελιά

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (22)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you very much hundred times
This comment was minimized by the moderator on the site
After going absolutely crazy trying to find a solution, this worked - specifically, the macro for pasting INTO visible only cells. Note that I was copying only from unfiltered cells. However, the people complaining that it doesn't do both (which I'm not sure is true) should be quiet because it's pretty easy to copy FROM only visible/filtered cells into an unfiltered area. You don't need a macro for that (and if you're trying to do both, just do the copying of filtered cells in Excel first, then use this macro). Again, what Excel is fully unable to do on its own without a macro is to paste to visible cells only. This macro saved my bum. Thanks!
This comment was minimized by the moderator on the site
Thanks for your recognition.
This comment was minimized by the moderator on the site
This worked perfectly, thanks!
This comment was minimized by the moderator on the site
You can also easily do this without a plugin....
CTRL+C the cells you want to paste
Highlight the filtered/partially hidden range you're pasting to
CTRL+G
Select "Special"
Select "Visible Cells Only" & hit OK
CTRL+V
This comment was minimized by the moderator on the site
Thansk for you reply, but it does not work. With your method, it paste all cells including hidden ones with the copied values.
This comment was minimized by the moderator on the site
VBA method did not work! It copied the invisible cells into the visible cells. Now, I realize that the title doesn't say "How to paste values FROM VISIBLE/FILTERED CELLS to visible/filtered cells only in Excel?" but if my workbook is filtered, it's highly possible that this is what is needed. If this is what you want - copy from one section to another (or to simply paste values from certain cells right back to the same cells, so to remove the fomulas) you first need to copy/paste values to an unfiltered workbook/worksheet. THEN you can use the macro...or at least I hope you can. I didn't save my data and UNDO does not work....
This comment was minimized by the moderator on the site
I am sorry for that.
This comment was minimized by the moderator on the site
So is there any update version for this situation?
This comment was minimized by the moderator on the site
It is even more flexible and functional if the inner loop is constructed with Do While loop.
This comment was minimized by the moderator on the site
This was very helpful. Many thanks.
This comment was minimized by the moderator on the site
i am currently developing a macro. In that i need to do filter for a particular column for Eg: Column D and need to paste some values Eg: Valid in column B. only i need to paste the value for the filtered cells. And also i want to know the coding for multiple filters at a time. EG: filtering in one column and checking the value and again do filter in another column without making false for the previous filter. help me on this.
This comment was minimized by the moderator on the site
This works great up to record 1163 of 23,000 and then it stops. Why would it stop?
This comment was minimized by the moderator on the site
You rock! I've had this issue multiple times in the past but it became a back-breaker for the recent project. And you've helped me to fix it beautifully. THANK YOU!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations