Αντιγράψτε μια στήλη ή στήλες σε ένα φύλλο βάσης δεδομένων χρησιμοποιώντας VBA στο Microsoft Excel

Anonim
  • Τα παραδείγματα κωδικών θα αντιγραφούν σε ένα φύλλο βάσης δεδομένων με το όνομα Sheet2.
  • Κάθε φορά που εκτελείτε ένα από τα subs, τα κελιά θα τοποθετούνται κάτω από την τελευταία σειρά με δεδομένα ή μετά την τελευταία στήλη με δεδομένα στο φύλλο2.
  • Για κάθε παράδειγμα υπάρχει μια μακροεντολή που κάνει ένα κανονικό αντίγραφο και μία που είναι μόνο Αντιγραφή των τιμών.
  • Τα παραδείγματα υποκατάστασης χρησιμοποιούν τις παρακάτω συναρτήσεις (οι μακροεντολές δεν θα λειτουργήσουν χωρίς τις συναρτήσεις).

Θυμηθείτε ότι υπάρχουν μόνο 256 στήλες στο Excel

Sub CopyColumn () Dim sourceRange As Range Dim disrange As Range Dim Lc As Integer Lc = Lastcol (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Columns ("A: A") Set destrange = Φύλλα ("Sheet2"). Στήλες (Lc) πηγήRange.Copy αντιστοιχίστε End Sub Sub CopyColumnValues ​​() Dim sourceRange As Range Dim disrange as As Range Dim Lc As Integer Lc = Lastcol (Sheets ("Sheet2"))) + 1 Set sourceRange = Sheets ("Φύλλο1"). Στήλες ("Α: Α") Ορισμός προορισμού = Φύλλα ("Φύλλο2"). Στήλες (Π.χ.). _ Αλλαγή μεγέθους (, sourceRange.Columns.Count) destrange.Value = sourceRange.Value End Sub Function LastRow (sh As Worksheet) On Error Resume Next LastRow = sh.Cells.Find (What: = "*", _ After: = sh .Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Row On Error GoTo 0 End Function Function Lastcol (sh Ως φύλλο εργασίας) Στο Σφάλμα Συνέχιση Επόμενο Lastcol = sh.Cells.Find (Τι: = "*", _ Μετά: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlΠροηγούμενο, _ MatchCase: = False). Σφάλμα στήλης On GoTo 0 End Function