Πώς να αντιγράψει & Επικόλληση Διαθέσιμος Γραμμές σε Macro

Microsoft Excel είναι ιδιαίτερα λάτρης των συνεχόμενες περιοχές . Όταν μια περιοχή χωρίζεται από κενά κελιά , το Excel προσθέτει ένα στρώμα δυσκολία σε καθήκοντα φύλλο σας . Μερικές φορές η λύση είναι να συμπληρώσετε τα κενά , αντιγραφή των γραμμών που περιέχουν δεδομένα και επικόλληση τις τιμές στις κενές γραμμές κάτω . Εάν εργάζεστε με ένα μεγάλο φύλλο , τότε μάλλον δεν θέλετε να το κάνετε αυτό με το χέρι . Αντ 'αυτού , χρησιμοποιήστε ένα Visual Basic for Applications ( VBA) για να βρείτε τις διαθέσιμες σειρές και επικόλληση στα δεδομένα αυτόματα . Οδηγίες
Η 1

Άνοιγμα " Microsoft Excel ", έκδοση 2002 ή αργότερα . 2

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

κυττάρων B1 : test1

κυττάρων C1 : test1

τηλέφωνα A4 : test2

τηλέφωνα B4 : test2

κελί C4 : test2

κελί D4 : test2

κυττάρων A5 : test3

κυττάρων B5 : test3

τηλέφωνα C5 : test3

κελί A9 : . test4 εικόνων
3

Πατήστε το πλήκτρο " Alt + F11 " για να ανοίξει το Visual Basic Editor
Η

4 Τοποθετήστε μια κενή ενότητα για να κρατήσει τον κωδικό σας VBA . Επιλέξτε "Εισαγωγή " και στη συνέχεια " ενότητα " από το μενού .
5

Ξεκινήστε μια νέα υπορουτίνα που ονομάζεται " PasteAvail . " Πληκτρολογήστε το ακόλουθο στη μονάδα κώδικα : Sub

PasteAvail ( )

Πατήστε "Enter ". Το Excel θα προσθέσει μια δήλωση " End Sub" .
Η 6

αναγνωρίσει τις μεταβλητές που θα χρησιμοποιήσετε . Πληκτρολογήστε τα ακόλουθα μεταξύ του " Sub" και " End Sub " δηλώσεις :

Dim MaxRows Όπως Long , LastRow Όπως Long , i Όπως Long

Dim MaxCols As Integer , Firstrow As Integer
Σελίδα 7

Εκχώρηση μεταβλητές για να κρατήσει το συνολικό αριθμό των γραμμών και των στηλών στο φύλλο εργασίας . Η πραγματική αξία αυτών των μεταβλητών θα εξαρτηθεί από το ποια έκδοση του Excel που χρησιμοποιείτε . Πληκτρολογήστε τα ακόλουθα :

MaxRows = Rows.Count

MaxCols = Columns.Count
8

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

Firstrow = 1

LastRow = Cells ( MaxRows , 1 ) End ( xlUp ) Η σειρά
Η 9

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

Για i = Firstrow να LastRow

Γραμμές ( i ) Επιλέξτε

Εάν WorksheetFunction.CountBlank ( Γραμμές ( i ) ) = MaxCols Τότε

ActiveSheet.Paste

Else

Selection.Copy

End If

Next i

10

Αφήστε το "End Sub" δήλωση στη θέση του.
Η 11

Εκτελέστε τη μακροεντολή . Επιλέξτε "Run " και στη συνέχεια " Run Sub /UserForm " από το μενού .
Η 12

Πατήστε το πλήκτρο " Alt + F11 " για να επιστρέψετε στο φύλλο εργασίας του Excel και να δείτε τα αποτελέσματα .
Η

Η