Σύνοψη
Στο Microsoft Excel, μπορείτε να χρησιμοποιήσετε μια μακροεντολή για να συνενώσετε τα δεδομένα σε δύο γειτονικές στήλες και για να εμφανίσετε το αποτέλεσμα στη στήλη στα δεξιά των στηλών που περιέχουν τα δεδομένα σας. Αυτό το άρθρο περιέχει ένα δείγμα μακροεντολής Microsoft Visual Basic for Applications (VBA) (Δευτερεύουσα διαδικασία) για να το επιτύχετε.
Περισσότερες πληροφορίες
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για απεικόνιση, χωρίς εγγύηση εκφρασμένη ή σιωπηρή. Αυτό περιλαμβάνει, μεταξύ άλλων, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας. Ωστόσο, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν πρόσθετη λειτουργικότητα ή διαδικασίες κατασκευής που πληρούν τις συγκεκριμένες απαιτήσεις σας.
Δείγμα μακροεντολής Visual Basic for Applications (VBA)
Sub ConcatColumns()
Do While ActiveCell <> "" 'Loops until the active cell is blank.
'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.
ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
ΣΗΜΕΙΩΣΗ: Η πρόταση ActiveCell.Offset(0, 1). Το FormulaR1C1 μπορεί να αντικατασταθεί με την πρόταση ActiveCell.Offset(0, 1). Τύπος. Μπορούν να χρησιμοποιηθούν με την ίδια επιτυχία εάν χρησιμοποιείτε μόνο κείμενο και αριθμούς (όχι τύπους). Το R1C1 που χρησιμοποιείται στο τέλος της πρώτης πρότασης αναφέρεται στη γραμμή ένα, τη στήλη ένα και είναι η φόρμα που χρησιμοποιείται στα παραδείγματα στη Βοήθεια.
Τρόπος χρήσης της μακροεντολής στο Microsoft Office Excel 2007
-
Ανοίξτε το βιβλίο εργασίας που περιέχει τα δεδομένα.
-
Πατήστε το συνδυασμό πλήκτρων ALT+F11 για να ξεκινήσετε την Επεξεργασία της Visual Basic.
-
Στο μενού Εισαγωγή , κάντε κλικ στην επιλογή Λειτουργική μονάδα για να εισαγάγετε μια λειτουργική μονάδα. Πληκτρολογήστε τη μακροεντολή στο παράθυρο κώδικα της λειτουργικής μονάδας.
-
Στο μενού Αρχείο , κάντε κλικ στην επιλογή Κλείσιμο και επιστροφή στο Microsoft Excel.
-
Επιλέξτε το φύλλο εργασίας που περιέχει τα δεδομένα που θέλετε να συνενώσετε.
-
Κάντε κλικ στο επάνω κελί στη δεξιά στήλη δεδομένων που θέλετε να συνενώσετε. Για παράδειγμα, εάν τα κελιά A1:A100 και B1:B100 περιέχουν δεδομένα, κάντε κλικ στο κελί B1.
-
Κάντε κλικ στην καρτέλα Προγραμματιστής . Εάν η καρτέλα Προγραμματιστής δεν εμφανίζεται, ακολουθήστε τα εξής βήματα:
-
Κάντε κλικ στο Κουμπί του Microsoft Office και, στη συνέχεια, κάντε κλικ στο στοιχείο Επιλογές του Excel.
-
Κάντε κλικ στην επιλογή Δημοφιλή.
-
Κάντε κλικ για να επιλέξετε το πλαίσιο ελέγχου Εμφάνιση καρτέλας "Προγραμματιστής" στην κορδέλα .
-
Κάντε κλικ στο κουμπί OK για να κλείσετε το παράθυρο διαλόγου Επιλογές του Excel .
-
-
Κάντε κλικ στην επιλογή Μακροεντολές στην ομάδα Κώδικας .
-
Επιλέξτε τη μακροεντολή ConcatColumns και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.
Τρόπος χρήσης της μακροεντολής στο Microsoft Office Excel 2003 και σε παλαιότερες εκδόσεις του Excel
-
Ανοίξτε το βιβλίο εργασίας που περιέχει τα δεδομένα.
-
Πατήστε το συνδυασμό πλήκτρων ALT+F11 για να ξεκινήσετε την Επεξεργασία της Visual Basic.
-
Στο μενού Εισαγωγή , κάντε κλικ στην επιλογή Λειτουργική μονάδα για να εισαγάγετε μια λειτουργική μονάδα. Πληκτρολογήστε τη μακροεντολή στο παράθυρο κώδικα της λειτουργικής μονάδας.
-
Στο μενού Αρχείο , κάντε κλικ στην επιλογή Κλείσιμο και επιστροφή στο Microsoft Excel.
-
Επιλέξτε το φύλλο εργασίας που περιέχει τα δεδομένα που θέλετε να συνενώσετε.
-
Κάντε κλικ στο επάνω κελί στη δεξιά στήλη δεδομένων που θέλετε να συνενώσετε. Για παράδειγμα, εάν τα κελιά A1:A100 και B1:B100 περιέχουν δεδομένα, κάντε κλικ στο κελί B1.
-
Στο μενού Εργαλεία , τοποθετήστε το δείκτη του ποντικιού στην επιλογή Μακροεντολές και, στη συνέχεια, κάντε κλικ στην επιλογή Μακροεντολή. Επιλέξτε τη μακροεντολή ConcatColumns και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.
