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

Anonim
  • Τα παραδείγματα κωδικών θα αντιγραφούν σε ένα φύλλο βάσης δεδομένων με το όνομα Sheet2.
  • Κάθε φορά που εκτελείτε ένα από τα subs, τα κελιά θα τοποθετούνται κάτω από την τελευταία σειρά με δεδομένα ή μετά την τελευταία στήλη με δεδομένα στο φύλλο2.
  • Για κάθε παράδειγμα υπάρχει μια μακροεντολή που κάνει ένα κανονικό αντίγραφο και μία που είναι μόνο Αντιγραφή των τιμών.
  • Τα παραδείγματα υποκατάστασης χρησιμοποιούν τις παρακάτω συναρτήσεις (οι μακροεντολές δεν θα λειτουργήσουν χωρίς τις συναρτήσεις).
Sub CopyRow () Dim sourceRange As Range Dim disrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Rows ("1: 1") Set destrange = Φύλλα ("Φύλλο2"). Σειρές (Lr) sourceRange.Αντιγραφή διέλευσης Τέλος Sub Υπο CopyRowValues ​​() Dim sourceRange As Range Dim devrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Φύλλο1"). Σειρές ("1: 1") Ορισμός προορισμού = Φύλλα ("Φύλλο2"). Σειρές (Lr). _ Αλλαγή μεγέθους (sourceRange.Rows.Count) destrange.Value = sourceRange.Value End Sub Function LastRow (sh As Worksheet) On Error Resume Next LastRow = sh.Cells.Find (What: = "*", _ After: = sh Εύρος ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Row On Error GoTo 0 End Function Function Lastcol (sh As Φύλλο εργασίας) Σε Σφάλμα Συνέχιση Επόμενο Lastcol = sh.Cells.Find (Τι: = "*", _ Μετά: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlΠροηγούμενο, _ MatchCase: = False). Σφάλμα στήλης On GoTo 0 End Function