Excel - Συγκρίνετε τη στήλη A & B δίνοντας αποτελέσματα στη στήλη C

Θέμα

Έχω στοιχεία στη στήλη A & B, η οποία τρέχει μέχρι και 55000 στήλες μερικές φορές μόνο 144 στήλες, οι οποίες μοιάζουν με:

 ΑΒ (αποτέλεσμα C) 2 ZZ, A, Q 3 PP, V 4 WW 2 Α - 2 Q - 3 V - 1 DD

Εδώ πρώτα ψάξτε το col: Ο πρώτος αριθμός είναι "2" και στη στήλη: B έχει "Z", "A" & "Q" έτσι το αποτέλεσμα είναι Z, A, Q ένα από τα πιο σημαντικά το υπόλοιπο του "2" στη στήλη: Το Α πρέπει να δείχνει κενό.

Λύση 1

Αυτή είναι η πρώτη μακροεντολή που μπορείτε να χρησιμοποιήσετε:

 (1) .Επιλέξτε Για i = 2 Για να LastRow writeInCell = i Εύρος ("B" & i) .Επιλέξτε AccountName = Εύρος ("B" & i) .Value Εάν (Εύρος ("C" & i) .Value "") Επαναλάβετε την επιλογή repeatTimes = 1 Τότε accountName = WorkheetFunction.Rept (accountName & ", ", repeatTimes) Τέλος Αν j = i + 1 accountName = Trim (accountName) Αν (Δεξιά (accountName, 1) = ", " (1) Τέλος Αν (i lastRow) Στη συνέχεια κάνετε μέχρι ActiveCell.Offset (1, -1) .Value "" repeatTimes = 0 Εάν (Εύρος ("C" & j) (AccountName, 1) = ", ") Στη συνέχεια accountName = AccountName & WorksheetFunction.Rept (Εύρος (C) & j) "B" & j) .Value & ", ", repeatTimes) Άλλο λογαριασμόName = accountName & ", " & WorksheetFunction.Rept (Εύρος ("B" & j) (1), επιλέξτε i = i + 1 j = i + 1 End Loop Αν accountName = Trim (accountName) Αν (Δεξιά (accountName, 1) = ", " (accountName) - 1) Τέλος Αν accountName = Αντικαταστήστε (accountName, ", ", ", " Range ") .Value = accountName accountName =" "repeatTimes = 0 Επόμενο i Range (" A1 "). Επιλέξτε End Sub

Λύση 2

Μια άλλη μακροεντολή:

 (1) .Επιλέξτε Για i = 2 To lastRow writeInCell = i ΛογαριασμόςName = Εύρος ("B" & i) .Επιλέξτε εάν (i lastRow) έπειτα κάνετε μέχρι την τιμή ActiveCell.Offset (1, -1) .Value accountName = accountName & ", " & ActiveCell.Offset (1, 0). Αξία ActiveCell.Offset (1, 0) .Επιλέξτε i = i + 1 End Loop Αν εύρος ("C" & writeInCell) .Value = AccountName Επόμενο i Τέλος Sub

Λύση 3

1. Δημιουργήστε ένα φάκελο σε μια μονάδα δίσκου για εύκολη πρόσβαση, π.χ. C :. (Ονομάστε κάτι που σχετίζεται με τον Πίνακα Ελέγχου, π.χ. Χρήστες.)
2. Δημιουργήστε ένα νέο αρχείο στο Notepad και αντιγράψτε και επικολλήστε τα ακόλουθα σε αυτό:

 χρήστες χρηστών. {21EC2020-3AEA-1069-A2DD-08002B30309D}

3. Αντικαταστήστε τους "Χρήστες" με το όνομα του φακέλου που δημιουργήσατε και αποθηκεύστε το αρχείο ως loc.bat.

(Θα πρέπει τώρα να βλέπετε τον φάκελο και το αρχείο loc.bat με το loc.bat στον ίδιο κατάλογο με το φάκελο Όχι σε αυτό.)

4. Τώρα, κάντε δεξί κλικ και δημιουργήστε ένα άλλο αρχείο κειμένου. Αντιγράψτε και επικολλήστε τα ακόλουθα σε αυτό:

 χρήστες. {21EC2020-3AEA-1069-A2DD-08002B30309D} Χρήστες

(Βεβαιωθείτε ότι έχετε αντικαταστήσει τη λέξη "Χρήστες" με το όνομα του φακέλου σας.)

5. Αποθηκεύστε το ως key.bat.
6. Τώρα θα πρέπει να δείτε τα αρχεία loc.bat και key.bat στον ίδιο κατάλογο με το φάκελο που δημιουργήσατε.
7. Τώρα, το μόνο που χρειάζεται να κάνετε είναι να κάνετε διπλό κλικ στο αρχείο loc.bat και ο φάκελος να έχει ένα εικονίδιο που μοιάζει με τον πίνακα ελέγχου. Εάν κάνετε κλικ στο φάκελο θα πρέπει να σας ανακατευθύνει στον Πίνακα Ελέγχου και έτσι έχετε κλειδώσει το φάκελο.
8. Φυσικά, για να το ξεκλειδώσετε, απλά κάντε διπλό κλικ στο αρχείο key.bat και ο φάκελος πρέπει να γυρίσει πίσω στο φάκελο που δημιουργήσατε για πρώτη φορά.