Μακροεντολή VBA για τη συγκέντρωση στηλών δεδομένων στο Excel

Ισχύει για: Microsoft Office Excel 2007Excel 2010Microsoft Office Excel 2003

Σύνοψη


Στο Microsoft Excel, μπορείτε να χρησιμοποιήσετε μια μακροεντολή για να ενώσετε τα δεδομένα σε δύο συνεχόμενες στήλες και να εμφανίσετε το αποτέλεσμα στη στήλη δεξιά από τις στήλες που περιέχουν τα δεδομένα σας. Αυτό το άρθρο περιέχει ένα δείγμα της Microsoft Visual Basic για εφαρμογές (VBA) μακροεντολή (διαδικασία Sub) για να το επιτύχετε αυτό.

Περισσότερες πληροφορίες


Η 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

  1. Ανοίξτε το βιβλίο εργασίας που περιέχει τα δεδομένα.
  2. Πιέστε το συνδυασμό πλήκτρων ALT + F11 για να ξεκινήσετε την Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί λειτουργική μονάδα για να εισαγάγετε μια λειτουργική μονάδα. Πληκτρολογήστε τη μακροεντολή στο παράθυρο κώδικα της λειτουργικής μονάδας.
  4. Στο μενού αρχείο , κάντε κλικ στο κουμπί Κλείσιμο και επιστροφή σε Microsoft Excel.
  5. Επιλέξτε το φύλλο εργασίας που περιέχει τα δεδομένα που θέλετε να ενώσετε.
  6. Κάντε κλικ στο κελί επάνω δεξιά στήλη των δεδομένων που θέλετε να ενώσετε. Για παράδειγμα, εάν τα κελιά a1: A100 και B1:B100 περιέχουν δεδομένα, κάντε κλικ στο κελί B1.
  7. Κάντε κλικ στην καρτέλα " Προγραμματιστής ". Εάν δεν εμφανίζεται η καρτέλα " Προγραμματιστής ", ακολουθήστε τα εξής βήματα:
    1. Κάντε κλικ στο Κουμπί του Microsoft Officeκαι, στη συνέχεια, κάντε κλικ στο κουμπί Επιλογές του Excel.
    2. Κάντε κλικ στο κουμπί δημοφιλείς.
    3. Κάντε κλικ για να επιλέξετε το πλαίσιο ελέγχου Εμφάνιση καρτέλας "Προγραμματιστής" στην κορδέλα .
    4. Κάντε κλικ στο κουμπί OK για να κλείσετε το πλαίσιο διαλόγου " Επιλογές του Excel ".
  8. Κάντε κλικ στο κουμπί " μακροεντολές " στην ομάδα " κώδικας ".
  9. Επιλέξτε τη μακροεντολή ConcatColumns και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.

Πώς μπορείτε να χρησιμοποιήσετε τη μακροεντολή στο Microsoft Office Excel 2003 και σε παλαιότερες εκδόσεις του Excel

  1. Ανοίξτε το βιβλίο εργασίας που περιέχει τα δεδομένα.
  2. Πιέστε το συνδυασμό πλήκτρων ALT + F11 για να ξεκινήσετε την Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί λειτουργική μονάδα για να εισαγάγετε μια λειτουργική μονάδα. Πληκτρολογήστε τη μακροεντολή στο παράθυρο κώδικα της λειτουργικής μονάδας.
  4. Στο μενού αρχείο , κάντε κλικ στο κουμπί Κλείσιμο και επιστροφή σε Microsoft Excel.
  5. Επιλέξτε το φύλλο εργασίας που περιέχει τα δεδομένα που θέλετε να ενώσετε.
  6. Κάντε κλικ στο κελί επάνω δεξιά στήλη των δεδομένων που θέλετε να ενώσετε. Για παράδειγμα, εάν τα κελιά a1: A100 και B1:B100 περιέχουν δεδομένα, κάντε κλικ στο κελί B1.
  7. Στο μενού Εργαλεία , επιλέξτε μακροεντολέςκαι, στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής. Επιλέξτε τη μακροεντολή ConcatColumns και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.

Αναφορές


Για περισσότερες πληροφορίες σχετικά με τη Visual Basic for Applications, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:

226118 λίστα των πόρων που είναι διαθέσιμοι για να σας βοηθήσει να μάθετε Visual Basic for Applications προγραμματισμού