Ο Τράβις ρωτά:
Προσπαθώ να διαμορφώσω κάποιο κείμενο σε ξεχωριστές στήλες. Το κείμενο είναι σε μία στήλη ως εξής:
ΕΝΑ Όνομα εταιρείας A PO BOX 1 ΝΕΟΡΚΑΡ NJ 07101 Επωνυμία Β PO BOX 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Όνομα εταιρείας C PO BOX 3 CHICAGO IL 60694 Όνομα εταιρείας D PO BOX 4 CLEARFIELD UT 84015 Επωνυμία Ε PO BOX 5 OGDEN UT 84401 Όνομα εταιρείας F PO BOX 6 BALTIMORE MD 21264-4351 Όταν διαμόρφωσα το τεστ για να ξεχωρίσω, έκανα αυτήν τη στήλη όπως φαίνεται παραπάνω. Θα ήθελα να μάθω έναν τύπο στον οποίο μπορώ να κάνω τα δεδομένα να εμφανίζονται σε μια σειρά και όχι σε πολλές σειρές για εταιρία, ο τύπος θα πρέπει να προκύπτει αν μου δώσει αυτό που ακολουθεί σε μία σειρά αλλά σε διαφορετικές στήλες:
Όλα στην ίδια σειρά
ΕΝΑ σι ντο Όνομα εταιρείας A PO BOX 1 ΝΕΟΡΚΑΡ NJ 07101 Έχω χρησιμοποιήσει vlookups και hlookups και συγκεντρωτικούς πίνακες, αλλά δεν μπορώ να καταλάβω πώς να λάβω την ημερομηνία, εάν γίνεται ένας τρόπος με σειρά.
Κατάφερα να εμφανίσω τα ονόματα των εταιρειών κατά σειρά σε μια στήλη με ταξινόμηση και κατάλαβα ότι θα μπορούσα να χρησιμοποιήσω έναν συνδυασμό ενός vlookup με ένα hlookup για να μου δώσει τα αποτελέσματα που έψαχνα, αλλά δεν ξέρω κατάλληλη φόρμουλα για φωλιά στην αναζήτηση αιθέρα. Έχω δοκιμάσει επίσης κάποια λειτουργία DSUM αλλά κανένας δεν λειτουργεί για μένα; Επομένως, ενημερώστε με τι ή πώς να διορθώσετε το πρόβλημά μου.
Νομίζω ότι αυτό μπορεί εύκολα να επιτευχθεί χρησιμοποιώντας μια μακροεντολή. Δοκίμασε αυτό.
Sub CopyAcross() Dim i As Long Dim NRow As Long Dim LastRow As Long NRow = 2 'First Row TO COPY, change this if you want i = 2 'First Row where the data appears, I assumed it started in A2 LastRow = Range("A65536").End(xlUp).Row While i <= LastRow Range(Cells(i, 1), Cells(i, 1).End(xlDown)).Copy Cells(NRow, 2).PasteSpecial Transpose:=True 'In here, I'm copying to Column 2, Next availabe Row. You can change the 2 if you want. NRow = NRow + 1 i = Cells(i, 1).End(xlDown).End(xlDown).Row Wend End Sub