Excel - En makro för att kopiera och klistra in data i nästa tomma cell

Problem

Jag har två ark i en arbetsbok. Sheet1 är för sammanfattning och Sheet2 är för rådata. Jag behöver uppdatera / infoga / kopiera data i Sheet2 till Sheet1. Nedan är provmakrokoden:

 Undermeny () Range ("A6: AT6"). Välj Selection.Copy Sheets ("ImprovementLog"). Välj Range ("B283"). Välj Selection.PasteSpecial Paste: = xlValues, Operation: = xlNone, SkipBlanks: = _ False, Transpose: = False Range ("B283"). Välj End Sub 

Koden ovan fungerar men varje gång jag ändrar data i Sheet2, ersätter Sheet1 bara dess data. Vad jag behöver är varje gång jag ändrar data i Sheet2, det ska läggas till (lägg till) i Sheet1.

Lösning

Du måste känna till den senast använda raden. Här finns Range ("B283"). Välj hittar den senast använda cellen i kolumn B och välj sedan en cell under den

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

Tack till rizvisa1 för detta tips.