Excel - Makro tietojen kopioimiseen ja liittämiseen seuraavaan tyhjään soluun

Ongelma

Minulla on kaksi arkkia työkirjassa. Sheet1 on tiivistelmä, ja Sheet2 on raakatietoihin. Minun täytyy päivittää / lisätä / kopioida tiedot Sheet2-sivulle Sheet1: ään. Alla on näytemakron koodi:

 Sub Summarize () -alue ("A6: AT6"). Valitse Selection.Copy Sheets ("ImprovementLog"). Valitse Range ("B283"). Valitse Selection.PasteSpecialPaste: = xlValues, Operation: = xlNone, SkipBlanks: = _ False, Transpose: = False Range ("B283") Valitse End Sub 

Yllä oleva koodi toimii, mutta aina kun vaihdan Sheet2-tietoja, Sheet1 korvaa vain sen tiedot. Tarvitsen aina, kun vaihdan tietoja Sheet2: ssa, se on lisättävä (lisäys) sivulle1.

Ratkaisu

Sinun täytyy tietää viimeisin käytetty rivi. Tässä alue ("B283") Valitse viimeisin käytetty solu sarakkeessa B ja valitse sitten yksi solu sen alapuolella

 lMaxRows = Solut (rivit.Laskenta, "B") Loppu (xlUp) .Ulkoalue ("B" & lMaxRows +1). 

Kiitos rizvisa1: stä tästä vinkistä.