Excel - makro za kopiranje in lepljenje podatkov v naslednjo prazno celico

Težava

Imam dva lista v delovnem zvezku. Sheet1 je za povzetek, Sheet2 pa za neobdelane podatke. Moram posodobiti / vstaviti / kopirati podatke v Sheet2 v Sheet1. Spodaj je vzorčna koda makra:

 Obseg podskupine () ("A6: AT6") Izberite Izbira.Kopiranje listov ("Izboljšanje stanja"). Izberite Območje ("B283"). False, Prenesi: = False Range ("F283"). Izberite End Sub 

Zgornja koda deluje, vendar vsakič, ko spremenim podatke v Sheet2, Sheet1 zamenja samo podatke. Kar potrebujem, je vsakič, ko spremenim podatke v Sheet2, ga je treba dodati (dodati) v Sheet1.

Rešitev

Poznati morate zadnjo uporabljeno vrstico. Tu najdete razdaljo ("B283"). Izberi najdeno zadnjo celico v stolpcu B in nato izberite eno celico pod njo

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

Hvala za rizvisa1 za ta tip.