Excel - makro andmete kopeerimiseks ja kleepimiseks järgmisesse tühja lahtrisse

Probleem

Mul on töövihikus kaks lehte. Sheet1 on kokkuvõtlik ja Sheet2 on toorandmete jaoks. Ma pean värskendama / sisestama / kopeerima andmeid lehele 2 lehele1. Allpool on makro makro kood:

 Sub Summarize () vahemik ("A6: AT6"). Valige Selection.Copy Sheets ("ImprovementLog"). Vali Range ("B283"). Vali Selection.PasteSpecial Paste: = xlValues, Operation: = xlNone, SkipBlanks: = _ False, Transpose: = vale vahemik ("B283") Valige End Sub 

Ülaltoodud kood töötab, kuid iga kord, kui muudan lehel 2 andmeid, asendab leht 1 ainult oma andmed. Ma vajan alati, kui ma muudan lehekülje 2 andmeid, tuleks see lisada (lisa) lehele1.

Lahendus

Peate teadma viimast kasutatud rida. Siin vahemik ("B283"). Vali valib viimases kasutatud lahtri B veerus ja seejärel valib selle all ühe lahtri

 lMaxRows = lahtrid (read.Count, "B"). End (xlUp) .Rida vahemik ("B" & lMaxRows +1). 

Tänu rizvisale1 selle näpunäite eest.