Πώς κόβετε αυτόματα τα δεκαδικά ψηφία σε μεγάλο αρχείο excel;

Δεν υπάρχει ενιαία εντολή για αυτόματα περικοπές (όχι στρογγυλό) δεκαδικά ψηφία σε ένα ολόκληρο μεγάλο αρχείο Excel. Η ενσωματωμένη λειτουργικότητα του Excel ταιριάζει καλύτερα για μεμονωμένα κύτταρα ή επιλεγμένες σειρές. Για ένα πραγματικά μεγάλο αρχείο, το VBA (Visual Basic for Applications) είναι η πιο αποτελεσματική λύση.

Εδώ είναι αρκετές προσεγγίσεις, προχωρώντας από απλούστερη έως πιο ισχυρή:

1. Κύτταρα μορφοποίησης (για μικρότερα αρχεία ή συγκεκριμένες στήλες):

* Επιλέξτε τα κύτταρα: Επισημάνετε τις στήλες ή το εύρος που περιέχει τους αριθμούς που θέλετε να περικοπείτε.

* Κύτταρα μορφοποίησης: Κάντε δεξί κλικ και επιλέξτε "Κύτταρα μορφοποίησης ...".

* Αριθμός καρτέλας: Επιλέξτε "αριθμό" ή προσαρμοσμένη μορφή αριθμού. Κάτω από τα "δεκαδικά ψηφία", εισάγετε το `0` για να αφαιρέσετε όλα τα δεκαδικά ψηφία. Αυτό * δεν αλλάζει την υποκείμενη τιμή, μόνο την οθόνη.

Αυτή είναι η ευκολότερη μέθοδος, αλλά αναποτελεσματική για μεγάλα αρχεία και δεν αλλάζει πραγματικά την υποκείμενη τιμή. Ο αριθμός εξακολουθεί να διατηρεί τα ψηφία του σε υπολογισμούς.

2. Χρησιμοποιώντας τη λειτουργία `trunc` (για μικρότερα αρχεία ή συγκεκριμένες στήλες):

* Εισαγάγετε μια νέα στήλη: Δίπλα στην υπάρχουσα στήλη σας, προσθέστε μια νέα στήλη.

* Χρησιμοποιήστε τη λειτουργία `trunc`: Στο πρώτο κελί της νέας στήλης, εισαγάγετε έναν τύπο όπως `=trunc (a1,0)` (υποθέτοντας ότι τα δεδομένα σας βρίσκονται στη στήλη Α). Αυτό κόβει τον αριθμό σε μηδενικά δεκαδικά ψηφία A1 έως μηδενικά.

* Αντιγραφή: Σύρετε τη λαβή πλήρωσης (το μικρό τετράγωνο στο κάτω δεξιά του κελιού) προς τα κάτω για να εφαρμόσετε τον τύπο σε όλες τις σειρές.

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

3. VBA Macro (για μεγάλα αρχεία, πιο αποτελεσματικά):

Αυτός ο κώδικας VBA επαναλαμβάνεται μέσω όλων των κυττάρων σε ένα καθορισμένο φύλλο και περικοπεί απευθείας τα δεκαδικά θέσεις, τροποποιώντας τις υποκείμενες τιμές των κυττάρων:

`` `vba

Sub credecteCimals ()

Dim WS ως φύλλο εργασίας

Dim Lastrow όσο καιρό, LastCol όσο πολύ καιρό

Dim I τόσο πολύ, j όσο πολύ καιρό

«Καθορίστε το φύλλο εργασίας για επεξεργασία

SET ws =thisworkbook.sheets ("sheet1") 'Αλλαγή "φύλλο1" στο όνομα του φύλλου σας

«Βρείτε την τελευταία σειρά και τη στήλη που περιέχουν δεδομένα

lastrow =ws.cells.find ("*", SearchOrder:=xlbyrows, SearchDirection:=xlprevious) .Row

lastCol =ws.cells.find ("*", SearchOrder:=xlbyColumns, SearchDirection:=xlprevious) .Column

«Βρόχο σε όλα τα κύτταρα και τα κομμάτια των δεκαδικών

Για i =1 στο lastrow

Για j =1 έως lastCol

Εάν είναι τότε ISNumeric (Ws.cells (i, j) .Value)

Ws.cells (i, j) .value =worksheetfunction.trunc (ws.cells (i, j) .Value, 0)

Τέλος εάν

Επόμενο j

Στη συνέχεια εγώ

Msgbox "Τα δεκαδικά ψηφία περικοπούν με επιτυχία!"

Τερματισμός

`` `

Πώς να χρησιμοποιήσετε τη μακροεντολή VBA:

1. Ανοίξτε το αρχείο Excel.

2. Πατήστε Alt + F11 για να ανοίξετε τον επεξεργαστή VBA.

3. Μεταβείτε στην ενότητα> Ενότητα.

4. Επικολλήστε τον κώδικα στη μονάδα.

5. Αλλαγή `" φύλλο1 "` στο πραγματικό όνομα του φύλλου σας.

6. Εκτελέστε τη μακροεντολή πατώντας το F5 ή κάντε κλικ στο κουμπί "Εκτέλεση".

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

Θυμηθείτε να επιλέξετε τη μέθοδο που ταιριάζει καλύτερα στο μέγεθος του αρχείου σας και στο επίπεδο άνεσής σας με το VBA. Για πραγματικά τεράστια σύνολα δεδομένων, σκεφτείτε να χρησιμοποιήσετε ένα πιο ισχυρό εργαλείο χειρισμού δεδομένων όπως η Python με βιβλιοθήκες όπως το Pandas, οι οποίες έχουν σχεδιαστεί για αποτελεσματικό χειρισμό μεγάλων συνόλων δεδομένων.