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

Πώς να συνδυάσετε περιεχόμενο πολλαπλών κελιών χωρίς να χάσετε δεδομένα στο Excel;

Μπορούμε να συνδυάζουμε συχνά κελιά και τα περιεχόμενά τους στο Microsoft Excel. Ωστόσο, ανακαλύπτετε τον ευκολότερο τρόπο για να συνδυάσετε τα περιεχόμενα των κυττάρων; Εδώ θα μιλήσουμε για τον τρόπο συνδυασμού περιεχομένων κυττάρων στο Excel εύκολα και γρήγορα.

Συνδυάστε πολλά κελιά σε ένα κελί με κωδικό VBA
Συνδυάστε πολλά κελιά σε ένα κελί με το Kutools για Excel χωρίς απώλεια δεδομένων


Συνδυάστε πολλά κελιά σε ένα κελί με κωδικό VBA

Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να συνδυάσετε πολλά κελιά σε ένα κελί και μπορείτε να εφαρμόσετε τον κώδικα με τα ακόλουθα βήματα:

1. Κλίκ Εργολάβος > Visual Basic, Ένα νέο Microsoft Visual Basic για εφαρμογές θα εμφανιστεί το παράθυρο, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι εισαγάγετε τον ακόλουθο κώδικα στην Ενότητα:

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. Στη συνέχεια κάντε κλικ στο κουμπί doc-multiply-υπολογισμός-3 κουμπί για την εκτέλεση του κώδικα. Εμφανίζεται ένας διάλογος για να επιλέξετε ένα εύρος για να εργαστείτε με το VBA. Δείτε στιγμιότυπα οθόνης:

3. Κλίκ Ok, εμφανίζεται ένας άλλος διάλογος για να καθορίσετε το διαχωριστικό. Δείτε το στιγμιότυπο οθόνης:

doc συνδυάζει περιεχόμενο κυττάρων 2

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

doc συνδυάζει περιεχόμενο κυττάρων 3


Συνδυάστε πολλά κελιά σε ένα κελί με το Kutools για Excel χωρίς απώλεια δεδομένων

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

1. Επιλέξτε τα κελιά που θέλετε να συγχωνεύσετε τα δεδομένα. Και εφαρμόστε αυτό το βοηθητικό πρόγραμμα κάνοντας κλικ Kutools > Συγχώνευση & διαχωρισμός > Συνδυάστε σειρές, στήλες ή κελιά χωρίς απώλεια δεδομένων.

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

  • (1.) Επιλέξτε Συνδυάστε σε ένα κελί υπό Για να συνδυάσετε επιλεγμένα κελιά σύμφωνα με τις ακόλουθες επιλογές;
  • (2.) Καθορίστε ένα διαχωριστικό για τα συνδυασμένα δεδομένα. Μπορείτε να διαχωρίσετε κάθε περιεχόμενο με κενό διάστημα, τίποτα, ερωτηματικό ή συγκεκριμένο κείμενο. Και μπορείτε επίσης να εμφανίσετε το συνδυασμένο περιεχόμενο σε μια νέα γραμμή.

doc συνδυάζει περιεχόμενο κυττάρων 5

3. Στη συνέχεια κάντε κλικ στο κουμπί OK or Εφαρμογή, όλα τα δεδομένα σε πολλά κελιά έχουν συγχωνευθεί σε ένα κελί. Δείτε το στιγμιότυπο οθόνης:

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

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

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Σχετικά άρθρα


Επίδειξη: Συνδυάστε / Συγχωνεύστε πολλά κελιά σε ένα χωρίς να χάσετε δεδομένα

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

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

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

Περιγραφή


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
my earlier query is about this vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Sigh As String On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Sigh = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = False For Each Rng In WorkRng xOut = xOut & Rng.Value & Sigh Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) End With Application.DisplayAlerts = True End Sub Between, what does the type here, "8" & "2" refers to
This comment was minimized by the moderator on the site
how repeat the process if i have 4 different reference and need to combine them one after the other
This comment was minimized by the moderator on the site
Awesome! Greatly helps! Thank you so much!
This comment was minimized by the moderator on the site
how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
This comment was minimized by the moderator on the site
Thanks very much - was a big help!
This comment was minimized by the moderator on the site
Thamks a lot for the code. Was very helpful.
This comment was minimized by the moderator on the site
Very helpful thank you took me a while to find it but was just what I needed. Note in the VBA code if you want to seperate data with a semicolon, comma or some other charater in the "delim = " " " field put you charater betwen the quotes example: delim = ";". Thanks again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations