Excel - Makro do kopiowania i wklejania danych w następnej pustej komórce

Kwestia

Mam dwa arkusze w skoroszycie. Arkusz1 służy do podsumowania, a Arkusz2 do danych surowych. Muszę zaktualizować / wstawić / skopiować dane w Arkuszu2 do Arkusza1. Poniżej znajduje się przykładowy kod makro:

 Zakres podsumowania () ("A6: AT6"). Wybierz Selection.Copy Sheets ("ImprovementLog"). Wybierz Range ("B283"). Wybierz Selection.PasteSpecial Paste: = xlValues, Operacja: = xlBrak, SkipBlanks: = _ False, Transpose: = False Range („B283”). Wybierz End Sub 

Powyższy kod działa, ale za każdym razem, gdy zmieniam dane w Sheet2, Sheet1 zastępuje tylko jego dane. To, czego potrzebuję za każdym razem, gdy zmieniam dane w Sheet2, należy dodać (dodać) w Arkuszu1.

Rozwiązanie

Musisz znać ostatnio używany wiersz. Tutaj Zakres („B283”). Wybierz znajduje ostatnią używaną komórkę w kolumnie B, a następnie wybierz jedną komórkę poniżej

 lMaxRows = Komórki (Rows.Count, "B"). End (xlUp) .Row Range ("B" i lMaxRows +1) .select 

Dzięki rizvisa1 za tę poradę.