Πώς να μετατρέψετε όλους τους πίνακες σε εύρη στο ενεργό φύλλο εργασίας;

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

Μετατροπή όλων των πινάκων σε εύρη ενεργού φύλλου με VBA

Μετατροπή όλων των πινάκων σε εύρη ενεργού φύλλου με VBA

1. Ενεργοποιήστε το φύλλο που θέλετε να μετατρέψετε τους πίνακες και, στη συνέχεια, πατήστε Alt + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε ένα νέο σενάριο λειτουργικής μονάδας, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην κενή μονάδα.

VBA: Μετατροπή όλων των πινάκων του ενεργού φύλλου σε εύρη

Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
    Dim xSheet As Worksheet
    Dim xList As ListObject
    Set xSheet = ActiveWorkbook.ActiveSheet
    For Each xList In xSheet.ListObjects
        xList.Unlist
    Next
End Sub

3. Τύπος F5 κλειδί για την εκτέλεση του κώδικα, τώρα όλοι οι πίνακες του τρέχοντος φύλλου έχουν μετατραπεί σε εύρη.