Πώς να Μετατροπή πολλαπλές στήλες στο Excel σε έναν ενιαίο κατάλογο στο Word

Excel 2010 για στήλες και γραμμές είναι ένας πολύ καλός τρόπος για την αποθήκευση πληροφοριών , αλλά όταν θέλετε να μεταφέρετε τα δεδομένα σε Microsoft Word 2010 , μπορεί να φανεί άσχημο . Η Microsoft δεν προσφέρει μια επιλογή πάστα που αλλάζει τα κύτταρα του Excel σε γειτονικές στήλες σε έναν ενιαίο κατάλογο στο Word , αλλά μπορείτε ακόμα να χειριστεί τις πληροφορίες στο Excel , πριν να το αντιγράψετε . Με τη δημιουργία μιας μακροεντολής στο Excel της Visual Basic for Applications ή VBA , μπορείτε να μετατρέψετε όλα τα δεδομένα σας σε μία μόνο στήλη με το πάτημα ενός κουμπιού . Οδηγίες
Η

1 Ανοίξτε το αρχείο Excel 2010, το οποίο θέλετε να εργαστείτε. Κάντε δεξί κλικ στο "Α" πάνω από την πρώτη στήλη και επιλέξτε "Εισαγωγή ". Αυτό δημιουργεί μια κενή πρώτη στήλη που θα χρησιμοποιήσετε για να κατασκευάσει τη λίστα σας . 2

Πατήστε το " Alt " και " F11 " για να ξεκινήσει η κονσόλα Excel VBA . Κάντε δεξί κλικ σε οποιοδήποτε φύλλο στο τρέχον βιβλίο εργασίας σας - αυτά παρατίθενται στην αριστερή πλευρά της κονσόλας - μετακινήστε το ποντίκι σας πάνω από "Εισαγωγή" και επιλέξτε " Ενότητα ". Κάντε διπλό κλικ στη μονάδα που εμφανίζεται στη λίστα εικόνων
3

Αντιγράψτε τον παρακάτω κώδικα και προσθέστε το στο λευκό κενό στη δεξιά πλευρά της κονσόλας VBA : .

Sub Συνδυάζονται ( )

Range ( " B1 " ) . Επιλέξτε

κάνετε Ενώ ActiveCell > " "

Range ( ActiveCell , ActiveCell.End ( xlDown ) ) . Αντιγραφή Προορισμός : . . . = Range ( " A10000 ") End ( xlUp ) Offset ( 1 , 0 )

ActiveCell.Offset ( 0 , 1 ) Επιλέξτε

Loop

End Sub

Αυτός ο κώδικας δημιουργεί μια μακροεντολή , που ονομάζεται "Combine ", η οποία συνδυάζει όλες τις γειτονικές στήλες , ξεκινώντας με τη στήλη " Β", σε ένα μακρύ κατάλογο στη στήλη " Α " Αν νομίζετε ο συνολικός αριθμός των κυττάρων θα είναι μεγαλύτερο από 10.000 , η αύξηση του αριθμού " 10000 " στον κώδικα , έτσι ώστε θα είναι μεγαλύτερος από τον αριθμό όλων των κυττάρων σας σε συνδυασμό . Οι μακροεντολή εκτελείται μέχρι να συναντήσει ένα κενό κελί στην πρώτη γραμμή της στήλης .
Η

4 Κάντε κλικ στο πλήκτρο "Play" στη μέση γραμμή στο πάνω μέρος της κονσόλας VBA . Αυτό δημιουργεί τη λίστα σας στη στήλη " Α " Κάντε κλικ στο " Χ " στην επάνω δεξιά γωνία της κονσόλας VBA για να το κλείσετε .
5

Επιλέξτε το "Α" πάνω από την πρώτη στήλη για να επιλέξετε ολόκληρη τη στήλη . Πατήστε το πλήκτρο " Ctrl " και "C" για να αντιγράψετε τις πληροφορίες στο πρόχειρο σας .
Η

6 Ανοίξτε το αρχείο Microsoft Word 2010, όπου θέλετε να επικολλήσετε τη λίστα . Κάντε κλικ στο έγγραφο για να τοποθετήσετε τον κέρσορα σας, όπου θέλετε να εισαγάγετε τη λίστα .
Η

7 Κάντε κλικ στο κάτω μέρος του πλήκτρου "Επικόλληση " για να ανοίξει ένα pop -up παράθυρο . Επιλέξτε το εικονίδιο με την ένδειξη με ένα μεγάλο " Α " για να εισάγετε τις πληροφορίες ως κείμενο .
8

Κάντε κλικ στο τελευταίο στοιχείο των εισαχθέντων ειδών και κρατήστε πατημένο το πλήκτρο του ποντικιού . Σύρετε το ποντίκι πάνω στο πρώτο στοιχείο και αφήστε το κουμπί του ποντικιού , η επιλογή της όλο το φάσμα των ειδών . Κάντε κλικ στην καρτέλα "Home " στο πάνω μέρος της οθόνης και βρείτε την ενότητα " Παράγραφος " . Κάντε κλικ στο " Bullets " ή τα πλήκτρα " Αρίθμηση " για να μετατρέψει τις πληροφορίες σε έναν κατάλογο .
Η
εικόνων