Excel - Makro za kopiranje i lijepljenje podataka u sljedeću praznu ćeliju

Problem

Imam dvije plahte u radnoj knjizi. Sheet1 je za sažetak, a Sheet2 za sirove podatke. Moram ažurirati / umetnuti / kopirati podatke u Sheet2 u Sheet1. U nastavku je ogledni kôd makronaredbe:

 Podsumariziraj () Raspon ("A6: AT6") Odaberite Odabir.Kopiranje listova ("ImprovementLog") Odaberite Raspon ("B283"). False, Transpose: = False Raspon ("B283") 

Gornji kod radi, ali svaki put kad promijenim podatke u Sheet2, Sheet1 zamjenjuje samo podatke. Ono što trebam je svaki put kad promijenim podatke u Sheet2, treba ga dodati (dodati) u Sheet1.

Riješenje

Morate znati posljednji korišteni redak. Ovdje raspon ("B283") .Odaberite pronalazi posljednju korištenu ćeliju u stupcu B, a zatim odaberite jednu ćeliju ispod nje

 lMaxRows = Ćelije (Rows.Count, "B") Kraj (xlUp) .Row Range ("B" & lMaxRows +1) .select 

Zahvaljujući rizvisa1 za ovaj savjet.