Ποια είναι η εντολή ότι οι τύποι Pastes με σειρές και στήλες μετατρέπονται στο Excel;

Δεν υπάρχει ούτε μία εντολή στο Excel για να επικολλήσει ειδικά τους τύπους με σειρές και στήλες που αλλάζουν. Ωστόσο, μπορείτε να το επιτύχετε χρησιμοποιώντας ένα συνδυασμό τεχνικών:

1. Μεταφορά και επικόλληση τιμών:

* Επιλέξτε τα κύτταρα τύπου: Επισημάνετε τα κύτταρα που περιέχουν τους τύπους που θέλετε να μεταφέρετε.

* Αντιγράψτε τους τύπους: Χρησιμοποιήστε ctrl+c ή κάντε δεξί κλικ και επιλέξτε "Αντιγραφή".

* Επίληση ως μεταφορά: Επιλέξτε ένα κενό κελί όπου θέλετε να μεταβούν οι μεταφερόμενοι τύποι. Κάντε δεξί κλικ και επιλέξτε "Paste Special". Στο παράθυρο διαλόγου "Paste Special", επιλέξτε "Transpose" και κάντε κλικ στο "OK".

* Τιμές επικόλλησης: Τώρα, με τους μεταφερόμενους τύπους που έχουν επιλεγεί, χρησιμοποιήστε Ctrl+C Για να τα αντιγράψετε ξανά. Κάντε δεξί κλικ στα κύτταρα προορισμού και επιλέξτε "Paste Special". Επιλέξτε "Τιμές" και κάντε κλικ στο "OK". Αυτό θα μετατρέψει τους μεταφερόμενους τύπους στις προκύπτουσες τιμές τους, μετατρέποντας αποτελεσματικά τις σειρές και τις στήλες χωρίς να παραμένουν οι τύποι ενεργών.

2. Χρήση της συνάρτησης μεταφοράς:

* Επιλέξτε ένα κενό εύρος κυττάρων: Το εύρος θα πρέπει να έχει τον ίδιο αριθμό στήλες με τα αρχικά δεδομένα που έχουν σειρές και αντίστροφα.

* Τύπος `=μεταφορά (εύρος)`: Αντικαταστήστε το "εύρος" με το πραγματικό εύρος που περιέχει τους τύπους που θέλετε να μεταφέρετε.

* Πατήστε Ctrl+Shift+Enter: Αυτό θα εισέλθει στον τύπο ως τύπος συστοιχίας, εφαρμόζοντας τη λειτουργία μεταφοράς σε κάθε κύτταρο στην επιλεγμένη περιοχή.

3. Χρήση VBA (Macro):

Αυτή η προσέγγιση είναι για πιο περίπλοκες καταστάσεις ή εάν πρέπει να αυτοματοποιήσετε αυτή τη μεταφορά.

* Ανοίξτε τον επεξεργαστή VBA: Πατήστε alt+f11 .

* Εισαγάγετε μια ενότητα: Κάντε κλικ στην επιλογή "Εισαγωγή"> "Μονάδα".

* Επικολλήστε τον ακόλουθο κωδικό:

`` `vba

Subposeformulas ()

Dim Sourcerange ως εύρος, TargetRange ως εύρος

Ορίστε sourcerange =εύρος ("a1:b10") 'Αντικαταστήστε με την πραγματική σας πηγή πηγής

Ορίστε το TargetRange =Range ("C1:J1") 'Αντικαταστήστε με το πραγματικό εύρος στόχου σας

TargetRange.Formula =Application.Transpose (Sourcerange.Formula)

Τερματισμός

`` `

* Εκτελέστε τη μακροεντολή: Πατήστε F5 ή κάντε κλικ στο κουμπί "Εκτέλεση".

Θυμηθείτε να προσαρμόσετε τον κωδικό για να ταιριάζει με τις συγκεκριμένες σειρές και τους τύπους σας.

Αυτές οι μέθοδοι θα μεταφέρουν τους τύπους σας, μετατρέποντας αποτελεσματικά τις σειρές και τις στήλες στα δεδομένα του Excel.