Excel - Makro pro kopírování a vkládání dat do další prázdné buňky

Problém

Mám dva listy v sešitu. List1 je pro shrnutí a List2 je pro nezpracovaná data. Potřebuji aktualizovat / vložit / kopírovat data v List2 na List1. Níže je ukázkový kód makra:

 Rozsah dílčího souhrnu () ("A6: AT6"). Vyberte výběr.Obrázky listů ("ImprovementLog") Vyberte rozsah ("B283"). Vyberte výběr.PasteSpecial Paste: = xlValues, Operation: = xlNone, SkipBlanks: = _ False, Transpose: = False Range ("B283") Vyberte End Sub 

Výše uvedený kód funguje, ale pokaždé, když změním data v Listu2, List1 pouze nahradí jeho data. To, co potřebuji, je pokaždé, když změním data v List2, měla by být přidána (připojena) v Listu1.

Řešení

Musíte znát poslední použitý řádek. Zde Rozsah ("B283") Vyberte nalezenou poslední buňku ve sloupci B a vyberte jednu buňku pod ní

 lMaxRows = Buňky (Rows.Count, "B"). Konec (xlUp) .Row Range ("B" & lMaxRows +1) .select 

Díky rizvisa1 pro tento tip.