Excel - En makro for å kopiere og lime inn data i neste tomme celle

Utgave

Jeg har to ark i en arbeidsbok. Sheet1 er for oppsummering og Sheet2 er for rå data. Jeg må oppdatere / sette inn / kopiere data i Sheet2 til Sheet1. Nedenfor er prøve makrokode:

 Velg utvalg ("B283"). Velg Select.PasteSpecial Paste: = xlValues, Operation: = xlNone, SkipBlanks: = _ False, Transpose: = False Range ("B283"). Velg End Sub 

Koden ovenfor fungerer, men hver gang jeg endrer data i Sheet2, erstatter Sheet1 bare dataene sine. Det jeg trenger er hver gang jeg endrer data i Sheet2, skal det legges til (legg til) i Sheet1.

Løsning

Du må vite sist brukte rad. Her finner du feltet ("B283"). Velg finner den sist brukte cellen i kolonne B, og velg deretter en celle under den

 lMaxRows = Cells (Rows.Count, "B"). End (xlUp) .Row Range ("B" & lMaxRows +1) .select 

Takk til rizvisa1 for dette tipset.