Πώς να Διπλότυπο Data & Ταξινόμηση ένα VBA Πολυδιάστατη Array στο Excel

Visual Basic Applications (VBA ) είναι η γλώσσα προγραμματισμού που ενσωματώνει Excel Macro σε επεξεργαστή της . Το VBE ( Visual Basic Editor ) Macro επεξεργασίας στο Microsoft Excel επιτρέπει στους χρήστες να γράφουν απλά προγράμματα που αυτοματοποιούν περιττές εργασίες . Εδώ θα γράψουμε μια Macro VBA που θα επαναλάβει τα δεδομένα σε ένα φύλλο εργασίας , να ξεκαθαρίσουμε το θέμα σε ένα πολυδιάστατο πίνακα και να το γράψετε σε ένα νέο φύλλο εργασίας . Η διαδικασία αυτή είναι χρήσιμη όταν απαιτείται ταξινόμηση φύλλο εργασίας , αλλά το πρωτότυπο , χωρίς διαλογή φύλλο εργασίας πρέπει να παραμείνει ανέπαφο . Οδηγίες
Η 1

Launch Excel κάνοντας κλικ στο " Έναρξη", " Microsoft Office Suite , " " Excel ". 2

Ξεκινήστε το Visual Basic Editor ( VBE ), πατώντας το κουμπί " ALT "και" F11 " ταυτόχρονα .
εικόνων 3

Γράψτε τη διαδικασία για την αντιγραφή ενός φύλλου εργασίας σε ένα πολυδιάστατο πίνακα . Επιλέξτε τον ακόλουθο κώδικα και αντιγράψτε το στο VBE :

Sub Read_Into_Array ( )

Dim arrData ( ) Όπως Παραλλαγή

Dim ColACount Όπως Long

Dim i Όπως Long

ColACount = Εύρος ( Range ( "A1 " ) , Range ( "A" & Rows.Count ) . End ( xlUp ) ) Count

ReDim arrData ( 1 . να ColACount , 1 να 2 )

Για i = 1 Για να ColACount

arrData ( i , 1 ) = Range ( "A" & i ) . Αξία

arrData ( i , 2 ) = Range ( " B " & i ) . Αξία

Next i

End Sub
Η 4

Ταξινόμηση τον πίνακα με το Bubble VBA Ταξινόμηση διαδικασία . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα κάτω από τον κώδικα από το προηγούμενο βήμα . Θα λύσει το δισδιάστατο πίνακα:

Sub Sort_Array ( )

SortColumm1 = 0

SortColumn2 = 3

Για i = LBound ( ArrayName , 1 ) να UBound ( ArrayName , 1 ) - 1

Για j = LBound ( ArrData , 1 ) να UBound ( ArrData , 1 ) - 1

Condition1 = ArrData ( j , SortColumn1 ) > ArrData ( j + 1 , SortColumn1 )

Condition2 = ArrData ( j , SortColumn1 ) = ArrData ( j + 1 , SortColumn1 ) και _

ArrData ( j , SortColumn2 ) > ArrData ( j + 1 , SortColumn2 )

Εάν Condition1 ή Condition2 τότε

Για y = LBound ( ArrData , 2 ) να UBound ( ArrData , 2 )

t = ArrData ( j , y )

ArrData ( j , y ) = ArrData ( j + 1 , y )

ArrayName ( j + 1 , y ) = t

Επόμενη y

End If

Επόμενη

Επόμενη

End Sub
5

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

Sub New_Worksheet ( )

Dim WS ως Φύλλο

Set WS = Sheets.Add

End Sub
Η 6

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

Sub Copy_Array ( )

[ a1 ] Resize ( UBound ( MyArr ) , UBound ( Application.Transpose ( MyArr ) ) ) = . MyArr

End Sub
Η

7 Αποθηκεύστε το Macro . Κάντε κλικ στο " Αρχείο ", " Αποθήκευση " δώστε ένα όνομα και κάντε κλικ στο κουμπί "Αποθήκευση".
8

Εκτελέστε το Macro . Ανοίξτε ένα φύλλο εργασίας που θέλετε να αντιγράψετε και να ταξινομήσετε . Κάντε κλικ στο " Εργαλεία ", " Μακροεντολές ", επιλέξτε τη μακροεντολή που μόλις δημιουργήσατε . Το νέο φύλλο εργασίας θα εμφανιστεί και να συμπληρώσετε αυτόματα .
Η
εικόνων