Αντικαταστήστε τις εξωτερικές αναφορές σε έναν πίνακα Excel με τιμές- χρησιμοποιώντας μακροεντολή

Anonim

Μάθετε εδώ πώς μπορείτε να μετατρέψετε εξωτερικές αναφορές σε σταθερές τιμές στο Excel.

Οι εξωτερικές αναφορές είναι χρήσιμες επειδή μπορείτε να τις χρησιμοποιήσετε για τη δομή των δεδομένων σας. Ωστόσο, εάν διανέμετε ξεχωριστά βιβλία εργασίας με εξωτερικές αναφορές, οι χρήστες λαμβάνουν ένα μήνυμα σφάλματος που δηλώνει ότι η αναφερόμενη πηγή δεν μπορεί να βρεθεί.

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

ΥποσύνδεσμοιΑντικατάσταση ()

Dim Cell As Range Για κάθε κελί στο ActiveSheet.

UsedRange.

Cells If InStr (Cell.Formula, "[")> 0 And InStr (Cell.Formula, "]")> 0 Στη συνέχεια Cell.Formula = Cell

Τιμή Επόμενο κελί

Τέλος υπο

Όλες οι εξωτερικές αναφορές στον τρέχοντα πίνακα (ActiveSheet) αντικαθίστανται από απόλυτες τιμές. Για να γίνει αυτό, η μακροεντολή ελέγχει εάν οι χαρακτήρες "[" και "]" εμφανίζονται στους τύπους όλων των κελιών που χρησιμοποιούνται στον πίνακα. Αυτό είναι πάντα ένας δείκτης εξωτερικών αναφορών. Εάν πληρούται η συνθήκη, ο τύπος στο αντίστοιχο κελί αντικαθίσταται από την τρέχουσα τιμή του κελιού.