Σε περίπτωση που έχετε μια απαίτηση για συνδυασμό πολλών στηλών σε στήλη και δεν είχατε ιδέα, τότε ολόκληρο το άρθρο είναι για εσάς. Σε αυτό το άρθρο θα μάθουμε πώς να συνδυάζουμε πολλές στήλες σε μία στήλη χρησιμοποιώντας τον κώδικα vba.
Από κάτω στιγμιότυπο:-
Ακολουθεί το στιγμιότυπο της απαιτούμενης εξόδου:-
Πρέπει να ακολουθήσουμε τα παρακάτω βήματα:
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κώδικα επιλέξτε Visual Basic
Εισαγάγετε τον ακόλουθο κώδικα στην τυπική μονάδα
Sub MultipleColumns2SingleColumn ()
Const shName1 As String = "Sheet1" 'Αλλάξτε το όνομα του φύλλου εδώ
Const shName2 As String = "Sheet2"
Dim arr, arrNames
Με φύλλα εργασίας (shName1)
arrNames = .Range ("F1", .Cells (1, Columns.Count). End (xlToLeft))
Για i = 2 σε .Cells (Rows.Count, 1). End (xlUp). Row
arr =. Κελιά (i, 1). Αλλαγή μεγέθους (, 4)
Με φύλλα εργασίας (shName2)
Με .Cells (Rows.Count, 1). End (xlUp)
. Offset (1). Αλλαγή μεγέθους (UBound (arrNames, 2), 4) = arr
. Offset (1, 5). Αλλαγή μεγέθους (UBound (arrNames, 2)) = Application. Transpose (arrNames)
Τέλος με
Τέλος με
Επόμενο
Τέλος με
Τέλος υπο
Κατά την εκτέλεση της μακροεντολής. η μακροεντολή θα μεταφέρει τα δεδομένα από πολλές στήλες σε μία στήλη.
Με αυτόν τον τρόπο μπορούμε να συνδυάσουμε δεδομένα πολλών στηλών σε μία μόνο στήλη.
