„Excel“ - makrokomandas, skirtas kopijuoti ir įklijuoti duomenis į kitą tuščią langelį

Problema

Darbo knygoje turiu du lapus. 1 lapas skirtas santraukai, o Sheet2 - neapdoroti duomenys. Turiu atnaujinti / įterpti / kopijuoti duomenis į Sheet2 į Sheet1. Toliau pateikiamas makro makro kodas:

 Sub Summarize () intervalas ("A6: AT6"). Pasirinkite Selection.Copy Sheets ("ImprovementLog"). Pasirinkite Range ("B283"). False, Transponuoti: = False Range („B283“) 

Viršuje esantis kodas veikia, bet kiekvieną kartą keisdamas 2 lapo duomenis, 1 lapas pakeičia tik jo duomenis. Ką man reikia kaskart, kai keičiasi duomenys lape 2, jį reikia pridėti (pridėti) lape1.

Sprendimas

Turite žinoti paskutinę naudotą eilutę. Čia diapazonas ("B283"). Pasirinkite Raskite paskutinį panaudotą langelį B stulpelyje ir pasirinkite vieną langelį po juo

 lMaxRows = Ląstelės (eilutės.Skaičiuoti, "B"). Pabaiga (xlUp). Perkėlimo diapazonas ("B" & lMaxRows +1). 

Ačiū rizvisa1 už šį patarimą.