[VBA] Αντιγραφή στήλης

[Tasos]

Καλημέρα φίλε μου!

΄Μπορώ με copy στην vba να αντιγράψω την στηλη Α ,
από το Α6 και όσα κελιά προς τα κάτω έχουν τιμές , στο D6 ?

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

Τα κενά κάτω από τη χρησιμοποιημένη περιοχή δεν έχουν σημασία.

Το "ξεχείλωμα" του φύλλου δεν έχει επίπτωση στον όγκο και επομένως στη φόρτωση/αποθήκευση του βιβλίου εργασίας αφού είναι προσωρινό.
Όταν δηλαδή αποθηκεύσεις το βιβλίο θα διαπιστώσεις (παρατηρώντας την κάθετη μπάρα κύλισης) ότι το συγκεκριμένο φύλλο επανέρχεται
στο φυσιολογικό του μήκος.

Τώρα στον κώδικα που αναφέρεσαι βλέπω 2 σημαντικά λάθη:

1) χρησιμοποιείται Array όταν όλο το φύλλο είναι και επεξεργάζεται σαν Array από την ίδια την Excel .

2) Με τη χρήση του UsedRange.Rows.Count δεν είναι σίγουρο ότι θα επιστραφεί το νούμερο της τελευταίας γραμμής
αφού το UsedRange (χρησιμοποιημένη περιοχή του φύλλου) μπορεί να ξεκινά από την 3η γραμμή για παράδειγμα και συνεπώς να επιστρέψει ένα νούμερο - 3 !!!

Γενικότερα σε ενέργειες πάνω στο υπολογιστικό φύλλο, το γρηγορότερο αντικείμενο είναι το Range και αυτό πρέπει να χρησιμοποιείται.

Παρόλα αυτά αν θέλεις να αντιγράφεις μόνο όσα κελιά περιέχουν τιμές και όχι μέχρι την τελευταία σειρά ( 1048576 ) μπορείς να χρησιμοποιήσεις αυτό:

Sub CopyRange()
    With Worksheets("Sheet1")   'όπου "Sheet1" = το όνομα του φύλλου στο οποίο γίνεται η ενέργεια αυτή.
        Dim LRow As Long
        LRow = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("D6", "D" & Rows.Count).ClearContents
        .Range("D6", "D" & LRow).Value = .Range("A6", "A" & LRow).Value
    End With
End Sub

Καλή συνέχεια!

Τάσος