Εκμάθηση Excel: Συνδυάστε στήλες, γραμμές, κελιά
Ο συνδυασμός στηλών, σειρών ή κελιών χρησιμοποιείται συνήθως στην καθημερινή μας εργασία στο Excel, όπως ο συνδυασμός ονόματος και επωνύμου που σε δύο στήλες σε μία στήλη για να ληφθεί το πλήρες όνομα, συνδυασμός σειρών που βασίζονται στο ίδιο αναγνωριστικό και άθροισης των αντίστοιχων τιμών, συνδυασμός μια σειρά κελιών σε ένα μεμονωμένο κελί και ούτω καθεξής. Αυτό το σεμινάριο παραθέτει όλα τα σενάρια σχετικά με το συνδυασμό στηλών/γραμμών/κελιών στο Excel και παρέχει τις διαφορετικές λύσεις για εσάς.
Σε αυτό το σεμινάριο, δημιουργώ μερικά παραδείγματα για να εξηγήσω τις μεθόδους, μπορείτε να αλλάξετε τις αναφορές που χρειάζεστε όταν χρησιμοποιείτε παρακάτω κώδικα ή τύπους VBA ή μπορείτε να κάνετε λήψη των δειγμάτων για να δοκιμάσετε μεθόδους απευθείας.
Κάντε κλικ για λήψη του δείγματος αρχείου
1 Συνδυάστε στήλες/γραμμές σε ένα κελί
Ο συνδυασμός στηλών ή γραμμών σε ένα κελί και ο διαχωρισμός του αποτελέσματος με κόμμα, κενό ή άλλους οριοθέτες όπως φαίνεται παρακάτω στιγμιότυπο οθόνης χρησιμοποιείται ευρύτερα στο Excel.
Συνδυάστε στήλες σε ένα κελί |
Συνδυάστε σειρές σε ένα κελί |
1.11 Χρήση του συμβόλου συμπλεκτικού (&)
Στο Excel, το σύμβολο & χρησιμοποιείται συνήθως για τη σύνδεση κειμένων.
Παράδειγμα: Συνδυάστε το όνομα (στήλη Α) και το επώνυμο (στήλη Β) με το πλήρες όνομα
Επιλέξτε ένα κελί όπου θέλετε να τοποθετήσετε το συνδυασμένο αποτέλεσμα και, στη συνέχεια, πληκτρολογήστε έναν τύπο όπως αυτός:
=A2&" "&B2
Στον τύπο, & χρησιμοποιείται για την ένωση των κειμένων, το A2 και το B2 είναι τα δύο κείμενα που πρέπει να συνδυαστούν, το " " είναι ο οριοθέτης (κενό) που χωρίζει τα δύο κείμενα στο κελί αποτελεσμάτων, εάν θέλετε να χρησιμοποιήσετε κόμμα ως οριοθέτης, απλώς πληκτρολογήστε ένα κόμμα που περικλείεται με διπλά εισαγωγικά ","".
Τύπος εισάγετε πλήκτρο για να λάβετε το συνδυασμένο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε τα συνδυασμένα αποτελέσματα.
Παράδειγμα: Συνδυάστε τον αριθμό (σειρά 15) και το όνομα (σειρά 16) σε ένα κελί
Εάν θέλετε να συνδυάσετε σειρές σε ένα κελί, αλλάξτε τις αναφορές κελιών και το διαχωριστικό στον τύπο όπως χρειάζεστε και σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα δεξιά για να λάβετε τα συνδυασμένα αποτελέσματα.
1.12 Χρήση της λειτουργίας CONCATENATE (Excel 2016 ή παλαιότερες εκδόσεις)
Εάν χρησιμοποιείτε Excel 2016 ή παλαιότερες εκδόσεις, η συνάρτηση CONCATENATE μπορεί να σας βοηθήσει.
Σύνταξη σχετικά με το CONCATENATE |
CONCATENATE (text1,[text2],…) |
Για περισσότερες λεπτομέρειες σχετικά με τη λειτουργία CONCATENATE, επισκεφθείτε: ΣΥΓΚΕΝΤΡΩΣΤΕ.
Παράδειγμα: Συνδυάστε ονόματα (στήλη F) και διεύθυνση (στήλη G) σε μια στήλη
Επιλέξτε ένα κελί όπου θέλετε να τοποθετήσετε το συνδυασμένο αποτέλεσμα και, στη συνέχεια, πληκτρολογήστε έναν τύπο όπως αυτός:
=CONCATENATE(F2,",","G2)
Στον τύπο, τα F2 και G2 είναι τα δύο κείμενα που πρέπει να συνδυαστούν, "," είναι ο οριοθέτης (κόμμα) που χωρίζει τα δύο κείμενα στο κελί αποτελέσματος, αν θέλετε να χρησιμοποιήσετε το διάστημα ως οριοθέτη, απλώς πληκτρολογήστε ένα κενό διάστημα επισυνάπτεται με διπλά εισαγωγικά " ".
Τύπος εισάγετε πλήκτρο για να λάβετε το συνδυασμένο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε τα συνδυασμένα αποτελέσματα.
Για το συνδυασμό σειρών, απλώς αλλάξτε τις αναφορές κελιών και τον οριοθέτη όπως απαιτείται και σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα δεξιά.
1.13 Χρήση της συνάρτησης CONCAT ή της συνάρτησης TEXTJOIN (Excel 2019 ή Excel 365)
Εάν χρησιμοποιείτε Excel 2019 ή Excel 365, η συνάρτηση CONCAT και η συνάρτηση TEXTJOIN μπορεί να είναι η καλύτερη επιλογή.
Σύνταξη σχετικά με το CONCAT |
CONCAT (text1,[text2],…) |
Για περισσότερες λεπτομέρειες σχετικά με τη λειτουργία CONCAT, επισκεφθείτε: CONCAT.
Η χρήση της συνάρτησης CONCAT είναι η ίδια με τη συνάρτηση CONCATENATE, για να συνδυάσετε το όνομα και το επίθετο σε δύο στήλες χωριστά σε μία στήλη, ο τύπος χρησιμοποιείται ως εξής:
=CONCAT(A21," ",B21)
Στον τύπο, τα A21 και B21 είναι τα δύο κείμενα που πρέπει να συνδυαστούν, " " είναι ο οριοθέτης (κενός) που χωρίζει τα δύο κείμενα στο κελί αποτελεσμάτων, αν θέλετε να χρησιμοποιήσετε άλλους οριοθέτες, απλώς πληκτρολογήστε τον οριοθέτη που περικλείεται με διπλό εισαγωγικά "".
Πατήστε το πλήκτρο Enter για να λάβετε το συνδυασμένο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε τα συνδυασμένα αποτελέσματα.
Διαφορετικά από το συνδυασμό στηλών, ενώ συνδυάζετε σειρές, αφού εισαγάγετε τον πρώτο τύπο, πρέπει να σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα δεξιά μέχρι να ληφθούν όλα τα συνδυασμένα αποτελέσματα.
Σύνταξη σχετικά με το TEXTJOINT |
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...) |
Για περισσότερες λεπτομέρειες σχετικά με τη λειτουργία TEXTJOIN, επισκεφτείτε: ΚΕΙΜΕΝΟ.
Για να συνδυάσετε στήλες ή σειρές χρησιμοποιώντας το TEXTJOIN:
=TEXTJOIN(",",TRUE,E21:G21))
Στον τύπο, το E21:G21 είναι ένα συνεχές εύρος που πρέπει να συνδυαστεί. Το " " είναι ο οριοθέτης (κενό) που χωρίζει τα δύο κείμενα στο κελί αποτελεσμάτων, αν θέλετε να χρησιμοποιήσετε άλλους οριοθέτες, απλώς πληκτρολογήστε τον οριοθέτη που περικλείεται με διπλά εισαγωγικά "". Το λογικό κείμενο "TRUE" υποδεικνύει ότι αγνοούνται τα κενά κελιά κατά το συνδυασμό, εάν θέλετε να συνδυάσετε με κενά, αντικαταστήστε το TRUE με το FALSE.
Πατήστε το πλήκτρο Enter για να λάβετε το συνδυασμένο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε τα συνδυασμένα αποτελέσματα.
Αγνοήστε τα κενά |
Συμπεριλάβετε κενά |
1.14 Χρήση Σημειωματάριου (μόνο για συνδυασμό στηλών)
1. Χρησιμοποιώντας το Σημειωματάριο, μπορείτε επίσης να επιτύχετε συνδυασμό στηλών (καμία επίδραση στο συνδυασμό σειρών).
Επιλέξτε το εύρος που θέλετε να συνδυάσετε τις στήλες σε μία και πατήστε Ctrl + C πλήκτρα για την αντιγραφή της περιοχής.
2. Ανοίξτε a μπλοκ, και πατήστε Ctrl + V για να επικολλήσετε την αντιγραμμένη περιοχή.
3. Επιλέξτε μια καρτέλα μεταξύ δύο κειμένων στο Σημειωματάριο και πατήστε Ctrl + H να επιτρέψει Αντικαταστήστε χαρακτηριστικό, έχει τοποθετηθεί ένα σύμβολο καρτέλας βρείτε αυτό πλαίσιο κειμένου.
4. Στο Αντικατάσταση με πλαίσιο κειμένου, πληκτρολογήστε τον οριοθέτη που θέλετε να διαχωρίσετε τα συνδυασμένα κείμενα και, στη συνέχεια, κάντε κλικ Αντικατάσταση όλων. Στη συνέχεια κλείστε το Αντικαταστήστε διαλόγου.
5. Τώρα επιλέξτε τα κείμενα στο Σημειωματάριο και πατήστε Ctrl + C για να τα αντιγράψετε και μεταβείτε στο Excel, επιλέξτε ένα κελί και πατήστε Ctrl + V για να επικολλήσετε τα συνδυασμένα αποτελέσματα.
Επέκταση: Συνδυάστε στήλες/γραμμές σε ένα κελί με αλλαγή γραμμής ως οριοθέτη
Εάν θέλετε να συνδυάσετε στήλες ή σειρές σε ένα κελί με μια αλλαγή γραμμής όπως φαίνεται παρακάτω στιγμιότυπο οθόνης:
Αρχικά, θα πρέπει να συνειδητοποιήσετε ότι στο Excel, ΑΠΑΝΘΡΑΚΩΝΩ() Η συνάρτηση μπορεί να χρησιμοποιηθεί για τον καθορισμό χαρακτήρων που είναι δύσκολο να εισαχθούν σε έναν τύπο, όπως π.χ CHAR (10) επιστρέφει μια αλλαγή γραμμής.
Στη συνέχεια, χρησιμοποιήστε το CHAR(10) στους τύπους που αναφέρονται παραπάνω για να συνδυάσετε στήλες ή σειρές με αλλαγή γραμμής ως οριοθέτη:
Σύμβολο σύμβολο:
=A49&CHAR(10)&B49
Λειτουργία CONCATENATE:
=CONCATENATE(A49,CHAR(10),B49)
Λειτουργία CONCAT
=CONCAT(A49,CHAR(10),B49)
Συνάρτηση TEXTJOIN
=TEXTJOIN(CHAR(10),TRUE,A49:B49)
Αφού εισαγάγετε έναν παραπάνω τύπο, επιλέξτε τα αποτελέσματα και κάντε κλικ Αρχική > Αναδίπλωση του κειμένου.
Τώρα, οι στήλες συνδυάζονται σε μία και χωρίζονται με μια αλλαγή γραμμής.
Εάν θέλετε απλώς να συνδυάσετε σειρές σε μια στήλη σε ένα μόνο κελί, η δυνατότητα Justify στο Excel μπορεί να σας βοηθήσει. Επιλέξτε τη στήλη με πολλές σειρές και κάντε κλικ Αρχική > Γέμισμα > δικαιολογούν, τότε οι σειρές θα συνδυαστούν στο επάνω κελί της περιοχής με χώρο ως διαχωριστικό.
Σε αυτό το μέρος, το σεμινάριο εισάγει τις μεθόδους συνδυασμού στηλών ή γραμμών σε ένα κελί και παράλειψης κενών κελιών όπως φαίνεται παρακάτω στιγμιότυπο οθόνης:
1.21 Χρήση της συνάρτησης TEXTJOIN (Excel 2019 ή Excel 365)
Εάν χρησιμοποιείτε Excel 2019 ή Excel 365, ευτυχώς, η νέα συνάρτηση TEXTJOIN μπορεί να λύσει εύκολα αυτήν την εργασία.
Σύνταξη σχετικά με το CONCATENATE |
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...) |
Για περισσότερες λεπτομέρειες σχετικά με τη λειτουργία TEXTJOIN, επισκεφτείτε: ΚΕΙΜΕΝΟ.
Παράδειγμα: Συνδυάστε το όνομα (στήλη Α) και τον αριθμό (στήλη Β) και τον τομέα (στήλη Γ) σε ένα κελί για να δημιουργήσετε μια διεύθυνση ηλεκτρονικού ταχυδρομείου, ενώ ορισμένες αριθμοί ενδέχεται να είναι κενοί.
Επιλέξτε ένα κελί που χρησιμοποιήθηκε για την τοποθέτηση του συνδυασμένου αποτελέσματος, πληκτρολογήστε τον τύπο ως εξής:
=TEXTJOIN("",TRUE,A2:C2)
Στον τύπο, A2:C2 είναι η περιοχή που περιέχει κείμενα που έπρεπε να συνδυαστούν, "" είναι ο οριοθέτης (κανένα) που διαχωρίζει τα δύο κείμενα στο κελί αποτελέσματος, εάν θέλετε να χρησιμοποιήσετε έναν οριοθέτη για να διαχωρίσετε τα κείμενα, απλώς πληκτρολογήστε τον οριοθέτη που περικλείεται με διπλά εισαγωγικά "", όπως ","". Το λογικό κείμενο "TRUE" υποδεικνύει ότι αγνοούνται τα κενά κελιά κατά το συνδυασμό, εάν θέλετε να συνδυάσετε με κενά, αντικαταστήστε το TRUE με το FALSE.
Τύπος εισάγετε πληκτρολογήστε για να λάβετε το πρώτο αποτέλεσμα και σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω ή προς τα δεξιά καθώς χρειάζεστε για να δημιουργήσετε όλα τα αποτελέσματα.
1.22 Χρήση του συμβόλου συμπλεκτικού (&)
Εάν βρίσκεστε σε Excel 2016 ή παλαιότερες εκδόσεις του Excel, χρησιμοποιήστε το σύμβολο συμπλεκτικού και για να συνδέσετε τα κείμενα ένα προς ένα και να παραλείψετε μη αυτόματα κενά.
Επιλέξτε ένα κελί όπου θέλετε να τοποθετήσετε το συνδυασμένο αποτέλεσμα και, στη συνέχεια, πληκτρολογήστε έναν τύπο όπως αυτός:
=A10&C10
Στον τύπο, το & χρησιμοποιείται για την ένωση των κειμένων, το A10 και το C10 είναι τα δύο κείμενα που πρέπει να συνδυαστούν. Αν θέλετε να χρησιμοποιήσετε κόμμα ως οριοθέτη, απλώς πληκτρολογήστε ένα κόμμα που περικλείεται με διπλά εισαγωγικά όπως "," και χρησιμοποιήστε & για σύνδεση μεταξύ δύο κειμένων.
Τύπος εισάγετε κλειδί για να πάρετε το συνδυασμένο αποτέλεσμα. Στη συνέχεια αλλάξτε τις αναφορές του τύπου για να λάβετε το επόμενο συνδυασμένο αποτέλεσμα.
1.23 Χρήση καθορισμένης λειτουργίας
Για χρήστες του Excel 2016 και παλαιότερων εκδόσεων του Excel, εάν χρειάζονται συνδυασμούς πολλών στηλών ή σειρών κατά την παράβλεψη κενών, μπορείτε να χρησιμοποιήσετε ένα VBA για να δημιουργήσετε μια συνάρτηση Καθορισμένη για γρήγορη επίλυση αυτής της εργασίας.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησης για να εισαγάγετε μια νέα μονάδα.
3. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη νέα μονάδα και αποθηκεύστε τον.
VBA: Συνδυασμός κελιών παράλειψη κενών κελιών
Function Concatenatecells(ConcatArea As Range) As String
'updateby Extendoffice
For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & "_"): Next
Concatenatecells = Left(nn, Len(nn) - 1)
End Function
4. Επιστρέψτε στο φύλλο εργασίας και επιλέξτε ένα κελί που τοποθετεί το συνδυασμένο αποτέλεσμα, πληκτρολογήστε τον τύπο
=Concatenatecells(A15:C15)
Στον τύπο, το A15:C15 είναι το εύρος που περιέχει κείμενα που έπρεπε να συνδυαστούν. Στον κώδικα VBA, το "_" υποδεικνύει τον οριοθέτη που χρησιμοποιήθηκε για τον διαχωρισμό των κειμένων στο συνδυασμένο αποτέλεσμα, μπορείτε να αλλάξετε τον οριοθέτη όπως χρειάζεστε.
Εάν έχετε εγκαταστήσει Kutools για Excel στο Excel, το Συνδυάστε σειρές, στήλες ή κελιά χωρίς απώλεια δεδομένων Το χαρακτηριστικό βοηθάει αρκετά σε είδη συνδυασμού εργασιών.
1. Επιλέξτε τα κελιά που θέλετε να συνδυάσετε και τα κελιά που θέλετε να τοποθετήσετε τα συνδυασμένα αποτελέσματα.
2. κλικ Kutools > Συγχώνευση & διαχωρισμός > Συνδυάστε σειρές, στήλες ή κελιά χωρίς απώλεια δεδομένων.
3. Στο αναδυόμενο παράθυρο διαλόγου, καθορίστε τις παρακάτω επιλογές:
1) Καθορίστε να συνδυάσετε στήλες ή να συνδυάσετε σειρές ή να συνδυάσετε όλα τα κελιά σε ένα.
Συνδυάστε στήλες Π.χ. | Συνδυάστε σειρές π.χ. | Συνδυάστε σε ένα κελί Π.χ. |
2) Καθορίστε το διαχωριστικό για τα κείμενα στο συνδυασμένο αποτέλεσμα.
3) Καθορίστε τη θέση του συνδυασμένου αποτελέσματος (απενεργοποιημένο όταν επιλέγετε την επιλογή Συνδυασμός σε ένα κελί)
Όταν επιλέγετε την επιλογή Συνδυασμός στηλών, μπορείτε να ορίσετε να τοποθετείτε το αποτέλεσμα στο αριστερό κελί της επιλεγμένης περιοχής ή στο δεξί κελί της επιλεγμένης περιοχής.
Αριστερό κελί Π.χ. | Δεξί κελί Π.χ. |
Κατά την επιλογή του Συνδυάστε σειρές επιλογή, μπορείτε να ορίσετε να τοποθετείτε το αποτέλεσμα στο επάνω κελί της επιλεγμένης περιοχής ή στο κάτω κελί της επιλεγμένης περιοχής.
Κορυφαίο κελί Π.χ. | Κάτω κελί Π.χ. |
4) Καθορίστε τη λειτουργία σχετικά με τα συνδυασμένα αποτελέσματα.
4. κλικ Ok or Εφαρμογή για να τελειώσει ο συνδυασμός.
Διατηρήστε το περιεχόμενο των συνδυασμένων κυττάρων |
Διαγραφή περιεχομένων συνδυασμένων κελιών |
Συγχωνεύστε τα συνδυασμένα κελιά |
Για περισσότερες λεπτομέρειες σχετικά με αυτήν τη δυνατότητα, επισκεφθείτε Συνδυάστε στήλες, γραμμές, κελιά χωρίς απώλεια δεδομένων.
Για περισσότερες λεπτομέρειες σχετικά με το Kutools για Excel, επισκεφθείτε Kutools για Excel.
Για μια δωρεάν δοκιμή 30 ημερών του Kutools για Excel, παρακαλούμε κατεβάσετε αυτό τώρα.
Μερικές φορές, μπορεί να θέλετε να συνδυάσετε δύο στήλες εάν μία από τις στήλες περιέχει κενά κελιά. Υποθέτοντας ότι υπάρχουν δύο στήλες, η στήλη Α περιέχει Ονόματα χρηστών και μερικά κενά κελιά και η στήλη Β περιέχει Ονόματα, τώρα απλώς συμπληρώστε τα κενά κελιά της στήλης Α με τα αντίστοιχα περιεχόμενα στη στήλη Β όταν συνδυάζετε τις δύο στήλες όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Η συνάρτηση IF χρησιμοποιείται για τον έλεγχο μιας συγκεκριμένης κατάστασης. Εδώ μπορείτε να χρησιμοποιήσετε τη συνάρτηση IF για να ελέγξετε εάν το κελί είναι κενό και, στη συνέχεια, να συμπληρώσετε τα κενά με περιεχόμενα σε μια άλλη στήλη.
Σύνταξη σχετικά με τη λειτουργία IF |
IF (logical_test, [value_if_true], [value_if_false]) |
Για περισσότερες λεπτομέρειες σχετικά με τη λειτουργία IF, επισκεφθείτε: IF
Επιλέξτε το επάνω κελί της στήλης που θέλετε να τοποθετήσετε τα συνδυασμένα αποτελέσματα και αντιγράψτε ή εισαγάγετε τον παρακάτω τύπο:
=IF(A2="",B2,A2)
Στη συνέχεια πατήστε εισάγετε πλήκτρο για να λάβετε το πρώτο αποτέλεσμα και σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε όλα τα αποτελέσματα.
Τώρα μόνο τα κενά κελιά στη στήλη Α έχουν συμπληρωθεί με τα περιεχόμενα της στήλης Β.
Εδώ είναι ένας κώδικας VBA που μπορεί επίσης να χειριστεί αυτήν τη δουλειά.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα κενή ενότητα.
2. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη νέα μονάδα.
VBA: Συγχωνεύστε δύο στήλες εάν είναι κενές
Sub MergebyBlank()
'UpdatebyExtendoffice20220506
Dim xRg1, xRg2, xRgUser As Range
Dim xRg As Range
Dim xWsh As Worksheet
Dim xCount, xFNum As Integer
Set xRg1 = Range("A:A")
Set xRg2 = Range("B:B")
Set xWsh = xRg1.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg1 = Intersect(xRgUser, xRg1)
Set xWsh = xRg2.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg2 = Intersect(xRgUser, xRg2)
xCount = xRg1.Count
If (xCount > xRg2.Count) Then
xCount = xRg2.Count
End If
For xFNum = 1 To xCount
If (xRg1.Item(xFNum).Value = "") Then
If (xRg2.Item(xFNum).Value <> "") Then
xRg1.Item(xFNum).Value = xRg2.Item(xFNum).Value
End If
ElseIf (xRg2.Item(xFNum).Value = "") Then
If (xRg1.Item(xFNum).Value <> "") Then
xRg2.Item(xFNum).Value = xRg1.Item(xFNum).Value
End If
End If
Next
End Sub
Στον κώδικα, A:A και B:B είναι οι δύο στήλες που θα συγχωνευθούν, απλώς αλλάξτε τις όπως θέλετε.
3. Στη συνέχεια, πατήστε F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί, τότε η στήλη Α θα συμπληρωθεί με την τιμή της στήλης Β εάν η τιμή είναι κενή στη στήλη Α.
2 Συνδυάστε σειρές με το ίδιο αναγνωριστικό
Αν υποθέσουμε ότι υπάρχει ένας πίνακας με πολλές στήλες, μια στήλη περιέχει τιμές αναγνωριστικού που έχουν διπλά στοιχεία. Τώρα το σεμινάριο παρέχει μεθόδους συνδυασμού των σειρών του πίνακα με βάση το ίδιο αναγνωριστικό και να κάνετε μερικούς υπολογισμούς.
Εδώ σε αυτό το μέρος, παρέχει τις μεθόδους για το συνδυασμό σειρών με το ίδιο αναγνωριστικό και διαχωρισμένες με κόμματα, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Εδώ παρέχεται ένας κώδικας VBA που μπορεί να χειριστεί αυτήν την εργασία
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα κενή ενότητα.
2. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη νέα μονάδα.
VBA: Συνδυάστε σειρές με το ίδιο αναγνωριστικό
Sub Combine_Rows()
'UpdatebyExtendoffice20220506
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Text
Else
xRg(I, K) = xRg(I, K).Text & "," & xRg(J, K).Text 'here uses comma as separator, you can change it to others as you need
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub
3. Στη συνέχεια, πατήστε F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί και, στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου Kutools για Excel για να επιλέξετε έναν πίνακα που πρέπει να συνδυαστούν σειρές με το ίδιο αναγνωριστικό.
4. κλικ OK. Τώρα ο επιλεγμένος πίνακας έχει συνδυαστεί σειρές με βάση το ίδιο αναγνωριστικό.
2.12 Χρήση της συνάρτησης IF για την προσθήκη βοηθητικών στηλών
Εάν υπάρχουν μόνο δύο στήλες και θέλετε να συνδυάσετε τις σειρές με το ίδιο αναγνωριστικό και μια άλλη τιμή στήλης διαχωρισμένη με κόμμα, όπως δείχνει το παρακάτω στιγμιότυπο οθόνης, η συνάρτηση IF μπορεί να σας κάνει τη χάρη.
1. Ταξινομήστε το αναγνωριστικό από το Α στο Ω. Επιλέξτε τη στήλη ID και κάντε κλικ ημερομηνία > Ταξινόμηση Α έως Ω.
2. Στη συνέχεια, στο Προειδοποίηση ταξινόμησης διάλογος, ελέγξτε Ανάπτυξη την επιλογή επιλογής, κάντε κλικ Είδος.
Τώρα τα ίδια αναγνωριστικά έχουν ταξινομηθεί μαζί.
3. Στη διπλανή στήλη, χρησιμοποιώντας τη συνάρτηση IF ως εξής:
=IF(A17=A18,C17&", "&B18,B18)
Στον τύπο, τα A17 και A18 είναι τα δύο γειτονικά κελιά στη στήλη ID (το A17 είναι η κεφαλίδα της στήλης ID), το B18 είναι το αντίστοιχο κελί του κελιού A18. "," υποδεικνύει για να διαχωρίσετε τις τιμές με κόμμα. μπορείτε να αλλάξετε τις αναφορές και το διαχωριστικό όπως απαιτείται.
4. Τύπος εισάγετε πλήκτρο για να λάβετε το πρώτο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε όλα τα αποτελέσματα.
5. Μεταβείτε στη διπλανή στήλη, πληκτρολογήστε τον τύπο ως εξής:
=IF(A18<>A19"Συγχώνευση","")
Στον τύπο, τα A18 και A19 είναι τα δύο γειτονικά κελιά στη στήλη ID, εάν τα διπλανά κελιά δεν είναι ίσα, θα επιστρέψει στο "Merged", διαφορετικά θα επιστρέψει κενό.
6. Τύπος εισάγετε πλήκτρο για να λάβετε το πρώτο αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε όλα τα αποτελέσματα.
7. Επιλέξτε την τελευταία στήλη τύπου συμπεριλαμβανομένης της κεφαλίδας και κάντε κλικ ημερομηνία > Φίλτρα.
8. Κάντε κλικ στο κουμπί Φίλτρα κουμπί και τικ Συγχωνεύθηκε πλαίσιο ελέγχου στο αναπτυσσόμενο μενού, κάντε κλικ OK.
Τώρα μόνο οι συγχωνευμένες σειρές έχουν φιλτραριστεί, αντιγράψτε τα φιλτραρισμένα δεδομένα και επικολλήστε τα σε άλλο σημείο.
Περισσότερες λεπτομέρειες σχετικά με τη λειτουργία IF. παρακαλώ επισκεφθείτε: IF.
Εάν έχετε εγκαταστήσει Kutools για Excel στο Excel, το Σύνθετες σειρές συνδυασμού μπορεί εύκολα να κάνει αυτή τη δουλειά.
1. Επιλέξτε τον πίνακα και κάντε κλικ Kutools > Συγχώνευση & διαχωρισμός > Σύνθετες σειρές συνδυασμού.
2. Στο Σύνθετες σειρές συνδυασμού διαλόγου, κάντε τα εξής:
1) Επιλέξτε τη στήλη ID και ορίστε την ως Πρωτεύων κλειδί;
2) Επιλέξτε τη στήλη που θέλετε να συνδυάσετε τις τιμές με διαχωριστικό, κάντε κλικ Συνδυασμός και επιλέξτε ένα διαχωριστικό.
3) κάντε κλικ Ok.
Τώρα οι σειρές έχουν συνδυαστεί με το ίδιο αναγνωριστικό.
Η λειτουργία Σύνθετες σειρές συνδυασμού θα σπάσει τα αρχικά δεδομένα, αποθηκεύστε τα δεδομένα ως αντίγραφο πριν τα χρησιμοποιήσετε.
Για περισσότερες λεπτομέρειες σχετικά με αυτήν τη δυνατότητα, επισκεφθείτε Σύνθετες σειρές συνδυασμού.
Για περισσότερες λεπτομέρειες σχετικά με το Kutools για Excel, επισκεφθείτε Kutools για Excel.
Για μια δωρεάν δοκιμή 30 ημερών του Kutools για Excel, παρακαλούμε κατεβάσετε αυτό τώρα.
Εάν θέλετε να συνδυάσετε σειρές με το ίδιο αναγνωριστικό και στη συνέχεια να αθροίσετε τις τιμές ή να κάνετε άλλους υπολογισμούς όπως δείχνει το παρακάτω στιγμιότυπο οθόνης, οι παρακάτω μέθοδοι μπορούν να σας βοηθήσουν.
2.21 Χρήση της δυνατότητας Ενοποίηση
Εάν υπάρχουν μόνο δύο στήλες, μια στήλη περιέχει κείμενα (ID) και μια άλλη περιέχει τιμές που πρέπει να υπολογιστούν, όπως άθροισμα, η ενσωματωμένη δυνατότητα του Excel Παγίωση μπορεί να σας κάνει μια χάρη.
1. Επιλέξτε ένα κελί στο οποίο θέλετε να τοποθετήσετε το συνδυασμένο αποτέλεσμα και μετά κάντε κλικ ημερομηνία > Παγίωση.
2. Στο Παγίωση διαλόγου, κάντε τα εξής:
1) Επιλέξτε το Συναρτήσεις όπως χρειάζεστε?
2) Κάντε κλικ στο βέλος για να επιλέξετε τον πίνακα.
3) Κάντε κλικ στο κουμπί Πρόσθεση για να προσθέσετε την επιλεγμένη περιοχή στο Όλες οι αναφορές λίστα;
4) Επιλέξτε τα πλαίσια ελέγχου του Κορυφαία σειρά και Αριστερή στήλη;
5) Κάντε κλικ στο κουμπί OK.
Τώρα ο πίνακας έχει αθροιστεί με βάση το ίδιο αναγνωριστικό.
Εδώ είναι ένα VBA που μπορεί επίσης να συνδυάσει σειρές με το ίδιο αναγνωριστικό και, στη συνέχεια, τιμές αθροίσματος.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα κενή ενότητα.
2. Στη νέα λειτουργική μονάδα, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA σε αυτήν.
VBA: Συνδυάστε διπλές σειρές και άθροισμα
Sub CombineRows()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub
3. Στη συνέχεια, πατήστε F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί, στη συνέχεια εμφανίζεται ένα παράθυρο διαλόγου για την επιλογή του πίνακα που χρησιμοποιείτε και, στη συνέχεια, κάντε κλικ OK.
Τώρα το επιλεγμένο εύρος έχει συνδυαστεί με τις ίδιες τιμές και έχει αθροιστεί.
Το VBA θα σπάσει τα αρχικά δεδομένα, αποθηκεύστε τα δεδομένα ως αντίγραφο πριν χρησιμοποιήσετε το VBA.
2.23 Χρήση ενός εύχρηστου εργαλείου – Σύνθετες σειρές συνδυασμού
Εάν υπάρχουν περισσότερες από δύο στήλες στον πίνακα που θέλετε να συνδυάσετε και να κάνετε υπολογισμούς, για παράδειγμα, υπάρχουν τρεις στήλες, η πρώτη περιέχει διπλά ονόματα προϊόντων που έπρεπε να συνδυαστούν μαζί, η δεύτερη περιέχει ονόματα καταστημάτων που έπρεπε να να συνδυαστεί και να διαχωριστεί με κόμμα, η τελευταία στήλη περιέχει αριθμούς που έπρεπε να αθροιστούν με βάση τις διπλότυπες σειρές στην πρώτη στήλη, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, τα Kutools για τις Σύνθετες σειρές συνδυασμού του Excel μπορούν να σας βοηθήσουν.
1. Επιλέξτε τον πίνακα και κάντε κλικ Kutools > Συγχώνευση & διαχωρισμός > Σύνθετες σειρές συνδυασμού.
2. Στο Σύνθετες σειρές συνδυασμού διαλόγου, κάντε τα εξής:
1) Επιλέξτε τη στήλη ID και ορίστε την ως Πρωτεύων κλειδί;
2) Επιλέξτε τη στήλη που θέλετε να συνδυάσετε τις τιμές με ένα διαχωριστικό, κάντε κλικ Συνδυασμός και επιλέξτε ένα διαχωριστικό.
3) Επιλέξτε τη στήλη που θέλετε να κάνετε τον υπολογισμό, κάντε κλικ Υπολογίζω και επιλέξτε έναν υπολογισμό.
4) κάντε κλικ Ok.
Τώρα οι σειρές έχουν συνδυαστεί με τις ίδιες σειρές και έχουν υπολογιστεί.
Η λειτουργία Σύνθετες σειρές συνδυασμού θα σπάσει τα αρχικά δεδομένα, αποθηκεύστε τα δεδομένα ως αντίγραφο πριν τα χρησιμοποιήσετε.
Για περισσότερες λεπτομέρειες σχετικά με αυτήν τη δυνατότητα, επισκεφθείτε Σύνθετες σειρές συνδυασμού.
Για περισσότερες λεπτομέρειες σχετικά με το Kutools για Excel, επισκεφθείτε Kutools για Excel.
Για μια δωρεάν δοκιμή 30 ημερών του Kutools για Excel, παρακαλούμε κατεβάσετε αυτό τώρα.
Εάν υπάρχει ένας πίνακας με πολλές στήλες, μια στήλη περιέχει μερικές διπλότυπες τιμές, τώρα η δουλειά είναι να συνδυάσετε τις γειτονικές σειρές σε αυτήν τη στήλη με τις ίδιες τιμές που δείχνει το παρακάτω στιγμιότυπο οθόνης. Πώς μπορείτε να το λύσετε;
Στο Excel, δεν υπάρχει ενσωματωμένη δυνατότητα που να μπορεί να λύσει άμεσα αυτήν την εργασία, αλλά εδώ παρέχεται ένα VBA που μπορεί να το χειριστεί.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα κενή ενότητα.
2. Στη νέα λειτουργική μονάδα, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA σε αυτήν.
VBA: Συνδυάστε γειτονικές σειρές με την ίδια τιμή
Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Στη συνέχεια, πατήστε F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί για να ενεργοποιήσετε αυτό το VBA, στη συνέχεια εμφανίζεται ένα παράθυρο διαλόγου για την επιλογή του πίνακα που χρησιμοποιείτε και, στη συνέχεια, κάντε κλικ OK.
Τώρα οι γειτονικές σειρές με τις ίδιες τιμές στην πρώτη στήλη συνδυάζονται στην επιλεγμένη περιοχή.
Το VBA θα σπάσει τα αρχικά δεδομένα, αποθηκεύστε τα δεδομένα ως αντίγραφο πριν χρησιμοποιήσετε το VBA. Και αυτό το VBA θα συγχωνεύσει τις ίδιες τιμές στην πρώτη στήλη του επιλεγμένου πίνακα.
2.32 Χρήση ενός εύχρηστου εργαλείου – Συγχώνευση ίδιων κελιών
Εάν έχετε Kutools για Excel εγκατεστημένο στο Excel, το Συγχώνευση ίδιων κελιών χαρακτηριστικό του Kutools για Excel μπορεί να λύσει αυτήν την εργασία σε ένα βήμα.
Επιλέξτε τη στήλη που θέλετε να συνδυάσετε τις ίδιες τιμές και, στη συνέχεια, κάντε κλικ Kutools > Συγχώνευση & διαχωρισμός > Συγχώνευση ίδιων κελιών.
Τώρα τα διπλανά κελιά με τις ίδιες τιμές έχουν συγχωνευθεί.
I Εάν θέλετε να καταργήσετε τη συγχώνευση των συγχωνευμένων κελιών και να γεμίσετε τις τιμές πίσω, μπορείτε να εφαρμόσετε το Κατάργηση συγχώνευσης κελιών και τιμών συμπλήρωσης χαρακτηριστικό.
Για περισσότερες λεπτομέρειες σχετικά με αυτήν τη δυνατότητα, επισκεφθείτε Συγχώνευση ίδιων κελιών.
Για περισσότερες λεπτομέρειες σχετικά με αυτήν τη δυνατότητα, επισκεφθείτε Απελευθέρωση κελιού.
Για περισσότερες λεπτομέρειες σχετικά με το Kutools για Excel, επισκεφθείτε Kutools για Excel.
Για δωρεάν δοκιμή 30 ημερών του Kutools για Excel, παρακαλούμε κατεβάσετε τώρα.
3 Συνδυάστε τα κύτταρα
Για το συνδυασμό μιας περιοχής με πολλές σειρές και στήλες σε ένα μεμονωμένο κελί, εδώ παρέχονται τέσσερις μέθοδοι.
Παράδειγμα: Συνδυάστε το εύρος A1:C3
3.11 Χρήση του συμβόλου συμπλεκτικού (&)
Στο Excel, το σύμβολο & χρησιμοποιείται συνήθως για τη σύνδεση κειμένων.
Επιλέξτε ένα κελί που θέλετε να τοποθετήσετε το συνδυασμένο αποτέλεσμα και, στη συνέχεια, πληκτρολογήστε έναν τύπο όπως αυτός:
=A1&", "&B1&", "&C1&", "&A2&", " &B2&", "&C2&", "&A3&", "&B3&", "&C3
Στον τύπο, το & χρησιμοποιείται για τη σύνδεση των κειμένων, το "," είναι ο οριοθέτης (κόμμα + κενό) που διαχωρίζει τα δύο κείμενα στο κελί αποτελέσματος. Εάν θέλετε να χρησιμοποιήσετε άλλους οριοθέτες, απλώς πληκτρολογήστε ένα διαχωριστικό που περικλείεται με διπλά εισαγωγικά.
Τύπος εισάγετε κλειδί για να πάρετε το συνδυασμένο αποτέλεσμα.
3.12 Χρήση της λειτουργίας CONCATENATE (Excel 2016 ή παλαιότερες εκδόσεις)
Εάν χρησιμοποιείτε Excel 2016 ή παλαιότερες εκδόσεις, η συνάρτηση CONCATENATE μπορεί να σας βοηθήσει.
Σύνταξη σχετικά με το CONCATENATE |
CONCATENATE (text1,[text2],…) |
Για περισσότερες λεπτομέρειες σχετικά με τη λειτουργία CONCATENATE, επισκεφθείτε: ΣΥΓΚΕΝΤΡΩΣΤΕ
Επιλέξτε ένα κελί στο οποίο θέλετε να τοποθετήσετε το συνδυασμένο αποτέλεσμα και, στη συνέχεια, πληκτρολογήστε έναν τύπο όπως αυτός:
=CONCATENATE(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", " ,C3)
Στον τύπο, τα A1, B1…, C3 είναι τα κείμενα που θέλετε να συνδυάσετε. "," είναι ο οριοθέτης (κόμμα + κενό) που χωρίζει τα δύο κείμενα στο κελί αποτελεσμάτων, αν θέλετε να χρησιμοποιήσετε άλλους οριοθέτες, απλώς πληκτρολογήστε ένα διαχωριστικό που περικλείεται με διπλά εισαγωγικά.
Στη συνέχεια πατήστε εισάγετε κλειδί για να πάρετε το συνδυασμένο αποτέλεσμα.
3. 13 Χρήση της συνάρτησης CONCAT ή της συνάρτησης TEXTJOIN (Excel 2019 ή Excel 365)
Εάν χρησιμοποιείτε Excel 2019 ή Excel 365, η συνάρτηση CONCAT και η συνάρτηση TEXTJOIN μπορεί να είναι η καλύτερη επιλογή.
Σύνταξη σχετικά με το CONCAT |
CONCAT (text1,[text2],…) |
Για περισσότερες λεπτομέρειες σχετικά με τη λειτουργία CONCAT, επισκεφθείτε: CONCAT.
Η χρήση της συνάρτησης CONCAT είναι η ίδια με τη συνάρτηση CONCATENATE, για να συνδυάσει το όνομα και το επίθετο που σε δύο στήλες χωριστά σε μια στήλη, ο τύπος χρησιμοποιείται ως εξής:
=CONCAT(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", " ,C3)
Στον τύπο, τα A1, B1…, C3 είναι τα κείμενα που θέλετε να συνδυάσετε. "," είναι ο οριοθέτης (κόμμα + κενό) που χωρίζει τα δύο κείμενα στο κελί αποτελεσμάτων, αν θέλετε να χρησιμοποιήσετε άλλους οριοθέτες, απλώς πληκτρολογήστε ένα διαχωριστικό που περικλείεται με διπλά εισαγωγικά.
Στη συνέχεια πατήστε εισάγετε κλειδί για να πάρετε το συνδυασμένο αποτέλεσμα.
Σύνταξη σχετικά με το TEXTJOIN |
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...) |
Για περισσότερες λεπτομέρειες σχετικά με τη λειτουργία TEXTJOIN, επισκεφτείτε: ΚΕΙΜΕΝΟ.
Για να συνδυάσετε στήλες ή σειρές χρησιμοποιώντας το TEXTJOIN:
=TEXTJOIN(", ",TRUE,A1:C3)
Στον τύπο, το A1:C3 είναι ένα συνεχές εύρος που πρέπει να συνδυαστεί. "," είναι ο οριοθέτης (κόμμα + κενό) που χωρίζει τα δύο κείμενα στο κελί αποτελεσμάτων, αν θέλετε να χρησιμοποιήσετε άλλους οριοθέτες, απλώς πληκτρολογήστε τον οριοθέτη που περικλείεται με διπλά εισαγωγικά "". Το λογικό κείμενο "TRUE" υποδεικνύει ότι αγνοούνται τα κενά κελιά κατά το συνδυασμό, εάν θέλετε να συνδυάσετε με κενά, αντικαταστήστε το TRUE με το FALSE.
Στη συνέχεια πατήστε εισάγετε κλειδί για να πάρετε το συνδυασμένο αποτέλεσμα.
Εάν θέλετε να χρησιμοποιήσετε την αλλαγή γραμμής ως οριοθέτη, χρησιμοποιώντας το CHAR(10) στον τύπο, όπως =TEXTJOIN(CHAR(10),TRUE,A1:C3), στη συνέχεια μορφοποιήστε το κελί του αποτελέσματος ως Wrap Text.
3.14 Χρήση Συνδυάστε στήλες/γραμμές/κελιά σε ένα κελί χωρίς απώλεια δεδομένων
Εάν έχετε εγκατεστημένο το Kutools για Excel στο Excel, το Συνδυάστε σειρές, στήλες ή κελιά χωρίς απώλεια δεδομένων χαρακτηριστικό μπορεί να χειριστεί γρήγορα αυτή τη δουλειά.
1. Επιλέξτε το εύρος των κελιών που θέλετε να συνδυάσετε σε ένα κελί και, στη συνέχεια, κάντε κλικ Kutools > Συγχώνευση & διαχωρισμός > Συνδυάστε σειρές, στήλες ή κελιά χωρίς απώλεια δεδομένων.
2. Στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε Συνδυάστε σε ένα κελί και καθορίστε ένα διαχωριστικό όπως χρειάζεστε και μετά κάντε κλικ Ok.
Τώρα τα κελιά συγχωνεύονται σε ένα κελί με ένα συγκεκριμένο οριοθέτη. Εάν τα περιεχόμενα των κελιών είναι πάρα πολλά για να εμφανιστούν στο συγχωνευμένο κελί, μπορείτε να κάνετε κλικ Αναδίπλωση του κειμένου σύμφωνα με το Αρχική καρτέλα για να τα εμφανίσετε.
Για περισσότερες λεπτομέρειες σχετικά με αυτήν τη δυνατότητα, επισκεφθείτε Συνδυάστε στήλες, γραμμές, κελιά χωρίς απώλεια δεδομένων.
Για περισσότερες λεπτομέρειες σχετικά με το Kutools για Excel, επισκεφθείτε Kutools για Excel.
Για μια δωρεάν δοκιμή 30 ημερών του Kutools για Excel, παρακαλούμε κατεβάσετε αυτό τώρα.
Μεταφέρετε τα κελιά σε μία στήλη |
Μεταφέρετε τα κελιά σε μία μόνο σειρά |
3.21 Ονομάστε το εύρος και χρησιμοποιήστε τη συνάρτηση INDEX (μόνο για σε μία στήλη)
Εάν θέλετε να μεταφέρετε το εύρος των κελιών σε μία στήλη, μπορείτε να ονομάσετε το εύρος και στη συνέχεια να χρησιμοποιήσετε τη συνάρτηση INDEX.
1. Επιλέξτε την περιοχή των κελιών, κάντε δεξί κλικ για να ενεργοποιήσετε το μενού περιβάλλοντος και κάντε κλικ Ορίστε το όνομα.
2. Στο σκάσιμο Νέο όνομα διαλόγου, πληκτρολογήστε ένα όνομα στο Όνομα πλαίσιο κειμένου, κάντε κλικ OK.
3. Αφού ονομάσετε την περιοχή και, στη συνέχεια, επιλέξτε ένα κελί που τοποθετεί τα μεταφερόμενα δεδομένα, χρησιμοποιήστε τη συνάρτηση INDEX ως εξής:
=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)
Για περισσότερες λεπτομέρειες σχετικά με τη λειτουργία INDEX, επισκεφθείτε εδώ.
4. Τύπος εισάγετε πληκτρολογήστε και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να συμπληρώσετε αυτόν τον τύπο μέχρι ένα #REF! εμφανίζεται η τιμή σφάλματος.
5. Καταργήστε την τιμή σφάλματος και, στη συνέχεια, η περιοχή των κελιών έχει συνδυαστεί σε μία στήλη.
Για το συνδυασμό κελιών σε μία στήλη, εδώ είναι ένα VBA που μπορεί επίσης να λειτουργήσει.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα κενή ενότητα.
2. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στην κενή μονάδα.
VBA: Μετατροπή εύρους σε στήλη
Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Στη συνέχεια, πατήστε F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί, εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε μια περιοχή κελιών, κάντε κλικ OK.
4. Ένας άλλος διάλογος εμφανίζεται για να επιλέξετε ένα κελί για να τοποθετήσετε το αποτέλεσμα, κάντε κλικ OK.
3.23 Χρήση εύχρηστου εργαλείου – Transform Range
Εάν θέλετε να συνδυάσετε κελιά σε μία σειρά, δεν υπάρχει ενσωματωμένη δυνατότητα στο Excel που να την υποστηρίζει. Ωστόσο, εάν έχετε Kutools για Excel εγκατεστημένο, αυτό Μετασχηματισμός εύρους Το χαρακτηριστικό υποστηρίζει τη μετατροπή μιας περιοχής σε μια στήλη ή μια γραμμή, υποστηρίζει επίσης τη μετατροπή μιας γραμμής ή μιας στήλης σε μια περιοχή.
1. επιλέξτε την περιοχή των κελιών και κάντε κλικ Kutools > Σειρά > Μετασχηματισμός εύρους.
2. Στο Μετασχηματισμός εύρους διάλογος, ελέγξτε Εύρος έως μία στήλη or Εύρος έως μία σειρά επιλογή όπως χρειάζεστε. Κάντε κλικ OK.
3. Εμφανίζεται ένα παράθυρο διαλόγου για την επιλογή ενός κελιού για την τοποθέτηση του αποτελέσματος, κάντε κλικ OK.
Τώρα το εύρος των κελιών έχει μετατραπεί σε γραμμή ή στήλη.
Για περισσότερες λεπτομέρειες σχετικά με αυτήν τη δυνατότητα, επισκεφθείτε Μετασχηματισμός εύρους.
Για περισσότερες λεπτομέρειες σχετικά με το Kutools για Excel, επισκεφθείτε Kutools για Excel.
Για μια δωρεάν δοκιμή 30 ημερών του Kutools για Excel, παρακαλούμε κατεβάσετε αυτό τώρα.
Εάν υπάρχουν ορισμένα διπλότυπα σε έναν πίνακα με πολλές στήλες, πώς μπορείτε να στοιβάξετε τις στήλες σε μία στήλη χωρίς τα διπλότυπα, όπως δείχνει το παρακάτω στιγμιότυπο οθόνης;
Σε αυτό το μέρος, παρέχει τρεις διαφορετικές μεθόδους χειρισμού αυτής της εργασίας.
3.31 Αντιγράψτε και επικολλήστε και αφαιρέστε διπλότυπα
Στο Excel, η γενική μέθοδος για την επίλυση αυτής της εργασίας είναι να αντιγράψετε και να επικολλήσετε τις στήλες μία προς μία και, στη συνέχεια, να αφαιρέσετε τις διπλότυπες τιμές.
1. Επιλέξτε την πρώτη στήλη και πατήστε Ctrl + C πλήκτρα για να το αντιγράψετε, επιλέξτε ένα κελί προορισμού και πατήστε Ctrl + V κλειδιά.
2. Στη συνέχεια επαναλάβετε το βήμα 1 για να αντιγράψετε άλλες στήλες και να τις επικολλήσετε κάτω από την πρώτη στήλη.
3. Στη συνέχεια, επιλέξτε τη στοιβαγμένη στήλη και κάντε κλικ ημερομηνία > Κατάργηση διπλότυπων, στη συνέχεια στο Καταργήστε το Διπλότυπο διαλόγου, ελέγξτε το όνομα της στήλης, κάντε κλικ OK.
4. Τώρα εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι οι τιμές των διπλότυπων έχουν αφαιρεθεί. Κάντε κλικ OK για να το κλείσετε και η στοιβαγμένη στήλη διατηρεί μόνο τις μοναδικές τιμές.
Εάν υπάρχουν εκατοντάδες στήλες, η αντιγραφή και επικόλληση μία προς μία είναι χρονοβόρα. Ωστόσο, εάν έχετε Kutools για Excel εγκατεστημένο στο Excel, το Μετασχηματισμός εύρους Το χαρακτηριστικό μπορεί να μετατρέψει γρήγορα το εύρος σε στήλη και, στη συνέχεια, να εφαρμόσει το Κατάργηση διπλότυπων χαρακτηριστικό του Excel.
Επιλέξτε το εύρος των στηλών και κάντε κλικ Kutools > Σειρά > Μετασχηματισμός εύρους.
Στη συνέχεια, ελέγξτε το Εύρος έως μία στήλη επιλογή και πατήστε OK για να επιλέξετε ένα κελί για να τοποθετήσετε τη στοιβαγμένη στήλη.
Στη συνέχεια, εφαρμόστε το Remove Duplicates για να καταργήσετε τις διπλότυπες τιμές.
Για περισσότερες λεπτομέρειες σχετικά με αυτήν τη δυνατότητα, επισκεφθείτε Μετασχηματισμός εύρους.
Για περισσότερες λεπτομέρειες σχετικά με το Kutools για Excel, επισκεφθείτε Kutools για Excel.
Για μια δωρεάν δοκιμή 30 ημερών του Kutools για Excel, παρακαλούμε κατεβάσετε αυτό τώρα.
Επιπλέον, εδώ είναι ένας κώδικας VBA που μπορεί να λύσει αυτή τη δουλειά.
1. Τύπος άλλος + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα κενή ενότητα.
2. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη νέα μονάδα.
VBA: Στοιβάξτε τις στήλες σε μία χωρίς διπλότυπα
Sub FindUniques()
'UpdatebyExtendoffice
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)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
For i = 1 To InputRng.Rows.Count
xValue = InputRng.Cells(i, j).Value
If xValue <> "" And Not dic.Exists(xValue) Then
OutRng.Value = xValue
dic(xValue) = ""
Set OutRng = OutRng.Offset(1, 0)
End If
Next
Next
End Sub
3. Στη συνέχεια, πατήστε F5 κλειδί ή κάντε κλικ τρέξιμο κουμπί και, στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για την επιλογή των στηλών που χρειάζονται για στοίβαξη, κάντε κλικ στο OK.
4. Στη συνέχεια, στο δεύτερο αναδυόμενο παράθυρο διαλόγου, επιλέξτε ένα κελί προορισμού για να τοποθετήσετε τη στοιβαγμένη στήλη και κάντε κλικ OK.
Τώρα οι στήλες έχουν στοιβαχτεί σε μία στήλη μόνο με μοναδικές τιμές.
Εάν υπάρχουν δύο στήλες, η μία έχει μορφοποιηθεί ως ειδική μορφοποίηση, όπως προσαρμοσμένη Ημερομηνία Ώραμμ/ηη/Εεεε, για να συνδυαστούν αυτές οι δύο στήλες σε μία με τις κανονικές μεθόδους, η προσαρμοσμένη μορφοποίηση θα αφαιρεθεί όπως δείχνει το παρακάτω στιγμιότυπο οθόνης:
Τώρα σε αυτό το μέρος, θα παρέχει μερικούς τρόπους συνδυασμού κελιών και διατήρησης της μορφοποίησης.
3.41 Ενσωματώστε τη συνάρτηση TEXT στον τύπο
Η συνάρτηση TEXT χρησιμοποιείται για τη μετατροπή ενός αριθμού σε κείμενο σε συγκεκριμένη μορφοποίηση. Εδώ μπορούμε να το χρησιμοποιήσουμε για να μετατρέψουμε το κελί (περιέχει έναν αριθμό) σε μορφοποίηση πρώτα και στη συνέχεια να το συνδυάσουμε με άλλα κελιά χρησιμοποιώντας τη συνάρτηση «&», τη συνάρτηση CONCATENATE, τη συνάρτηση CONCAT ή τη συνάρτηση TEXTJOIN.
Για λεπτομέρειες σχετικά με τον γενικό συνδυασμό κελιών σε ένα, επιστρέψτε στο 1.1.
Σύνταξη σχετικά με τη λειτουργία TEXT |
TEXT (value, format_text) |
Για περισσότερες λεπτομέρειες σχετικά με τη λειτουργία TEXT, επισκεφθείτε ΚΕΙΜΕΝΟ λειτουργία.
Εδώ λαμβάνει ως παράδειγμα την ενσωμάτωση της συνάρτησης TEXT στη συνάρτηση CONCAT.
Αντιγράψτε και επικολλήστε τον παρακάτω τύπο σε ένα κελί στο οποίο θέλετε να τοποθετηθεί το συνδυασμένο αποτέλεσμα:
=CONCAT(TEXT(A2,"mm/dd/yyyy hh:mm")," ",B2)
Στον τύπο, το A2 είναι το κελί που θέλετε να διατηρήσετε τη μορφοποίησή του, «μμ/ηη/εεεε ωω:μμ» είναι η μορφοποίηση που χρησιμοποιείτε, το Β2 είναι το άλλο κελί που χρησιμοποιείται για συνδυασμό. Το " " υποδεικνύει διαχωρισμό των τιμών με κενό. μπορείτε να αλλάξετε τις αναφορές, τη μορφοποίηση και το διαχωριστικό όπως απαιτείται.
Τύπος εισάγετε πληκτρολογήστε και σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να γεμίσετε τα κελιά με αυτόν τον τύπο.
1. Επιλέξτε τον πίνακα που θέλετε να συνδυάσετε τα κελιά σε ένα και πατήστε Ctrl + C για να τα αντιγράψετε.
2. Ανοίξτε ένα κενό λέξη έγγραφο, πατήστε Ctrl + V για να τα τοποθετήσετε, μετά κάντε κλικ στον πίνακα του εγγράφου, τώρα εμφανίζεται ένα εικονίδιο σταυρού στην επάνω δεξιά γωνία του πίνακα.
3. Κάντε κλικ στο κουμπί σχέδιο , και στη συνέχεια κάντε κλικ στο κουμπί OK Μετατροπή σε κείμενο στο ημερομηνία ομάδα, στο σκάσιμο Μετατροπή πίνακα σε κείμενο διαλόγου, καθορίστε το διαχωριστικό για τις στήλες. Κάντε κλικ OK.
Τώρα τα περιεχόμενα του πίνακα στο Word έχουν μετατραπεί σε κείμενα.
4. Επιλέξτε τα κείμενα που έχουν μετατραπεί και πατήστε Ctrl + C για να τα αντιγράψετε και επιστρέψτε στο Excel και επιλέξτε ένα κενό κελί, πατήστε Ctrl + V για να επικολλήσετε το συνδυασμένο αποτέλεσμα.
3.43 Χρήση εύχρηστου εργαλείου – Συνδυάστε χωρίς απώλεια δεδομένων
Ο πιο αποτελεσματικός τρόπος πρέπει να είναι η χρήση του Kutools για Excel'S Συνδυάστε σειρές, στήλες ή κελιά χωρίς απώλεια δεδομένων χαρακτηριστικό, το οποίο πρέπει απλώς να σημειώσετε το Χρησιμοποιήστε μορφοποιημένες τιμές πλαίσιο ελέγχου κατά την εφαρμογή της δυνατότητας, το συνδυασμένο αποτέλεσμα θα διατηρήσει τη μορφοποίηση των δεδομένων.
1. Επιλέξτε τον πίνακα με τα κελιά που τοποθετούν το αποτέλεσμα, κάντε κλικ Kutools > Συγχώνευση & διαχωρισμός > Συνδυάστε σειρές, στήλες ή κελιά χωρίς απώλεια δεδομένων.
2. Στο αναδυόμενο παράθυρο διαλόγου, καθορίστε τη λειτουργία συνδυασμού όπως χρειάζεστε και καταργήστε την επιλογή Χρησιμοποιήστε μορφοποιημένες τιμές πλαίσιο ελέγχου (στην προεπιλογή, αυτή η επιλογή είναι επιλεγμένη). Κάντε κλικ Ok.
Τώρα τα δεδομένα έχουν συνδυαστεί και διατηρείται η μορφοποίηση.
Για περισσότερες λεπτομέρειες σχετικά με αυτήν τη δυνατότητα, επισκεφθείτε Συνδυάστε στήλες, γραμμές, κελιά χωρίς απώλεια δεδομένων.
Για περισσότερες λεπτομέρειες σχετικά με το Kutools για Excel, επισκεφθείτε Kutools για Excel.
Για μια δωρεάν δοκιμή {module745} ημερών του Kutools για Excel, παρακαλούμε κατεβάσετε αυτό τώρα.
Υποθέτοντας ότι υπάρχει ένας πίνακας που περιέχει έτη, μήνες και ημέρες σε χωριστές στήλες, η δουλειά είναι να συνδυάσετε τις στήλες και να δημιουργήσετε μια ημερομηνία όπως φαίνεται παρακάτω στιγμιότυπο οθόνης:
3.51 Χρήση της συνάρτησης DATE
Η συνάρτηση DATE χρησιμοποιείται για τη δημιουργία ημερομηνίας με έτος, μήνα και ημέρα.
Σύνταξη σχετικά με τη συνάρτηση DATE |
DATE( year, month, day ) |
Για περισσότερες λεπτομέρειες σχετικά με τη λειτουργία DATE, επισκεφτείτε τη λειτουργία DATE.
Αντιγράψτε και επικολλήστε τον παρακάτω τύπο σε ένα κελί που θα τοποθετήσει την ημερομηνία:
=DATE(A2,B2,C2)
Στον τύπο, τα A2, B2 και C2 είναι τα κελιά που περιέχουν τις τιμές έτους, μήνα και ημέρας.
Τύπος εισάγετε πληκτρολογήστε για να δείτε την πρώτη ημερομηνία και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να λάβετε όλες τις ημερομηνίες.
Περισσότερα μαθήματα Excel:
Συνδυάστε πολλά βιβλία εργασίας/φύλλα εργασίας σε ένα
Αυτό το σεμινάριο, παραθέτει σχεδόν όλα τα σενάρια συνδυασμού που μπορεί να αντιμετωπίσετε και παρέχει σχετικές επαγγελματικές λύσεις για εσάς.
Διαίρεση κελιών κειμένου, αριθμού και ημερομηνίας (διαχωρισμός σε πολλαπλές στήλες)
Αυτό το σεμινάριο χωρίζεται σε τρία μέρη: διαίρεση κελιών κειμένου, διαχωρισμό κελιών αριθμού και διαχωρισμό κελιών ημερομηνίας. Κάθε τμήμα παρέχει διαφορετικά παραδείγματα για να σας βοηθήσει να μάθετε πώς να χειρίζεστε την εργασία διαχωρισμού όταν αντιμετωπίζετε το ίδιο πρόβλημα.
Συνδυάστε τα περιεχόμενα πολλών κυψελών χωρίς απώλεια δεδομένων στο Excel
Αυτό το σεμινάριο περιορίζει την εξαγωγή σε μια συγκεκριμένη θέση σε ένα κελί και συλλέγει διαφορετικές μεθόδους για να βοηθήσει στην εξαγωγή κειμένου ή αριθμών από ένα κελί ανά συγκεκριμένη θέση στο Excel.
Συγκρίνετε δύο στήλες για αντιστοιχίσεις και διαφορές στο Excel
Εδώ αυτό το άρθρο καλύπτει τα περισσότερα πιθανά σενάρια για τη σύγκριση δύο στηλών που μπορεί να συναντήσετε και ελπίζουμε ότι μπορεί να σας βοηθήσει.
Τα καλύτερα εργαλεία παραγωγικότητας του Office
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
- Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
- Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
- Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
- Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
- Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
- Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
- Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
- Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
- Ομαδοποίηση συγκεντρωτικού πίνακα κατά αριθμός εβδομάδας, ημέρα εβδομάδας και πολλά άλλα ... Εμφάνιση ξεκλειδωμένων, κλειδωμένων κελιών με διαφορετικά χρώματα. Επισημάνετε τα κελιά που έχουν τύπο / όνομα...
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!