Udfyld den næste tomme række i regnearket - Excel-tip

Indholdsfortegnelse

PK spørger:

Jeg har et regneark, hvor jeg indtaster nogle værdier. Når jeg klikker på en makroknap, vil jeg have, at værdierne eller dets beregnede resultater føjes til et andet ark eller en anden fil.

Godt spørgsmål. Lad os sige, at værdierne er i cellerne C10 og E12 i Sheet1, og du vil have dem tilføjet til næste række i Sheet2.

Det virkelige trick her er koden for at finde den næste række på Sheet2. Ved at starte ved den sidste række i Ark2 (A65536) og derefter bruge .End (xlup) finder den sidste række med data i kolonne A. Hvis du tilføjer 1 til den række, peger du på den næste række for data på Ark2. Brug denne kode:

Sub CopyThem() NextRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1 Worksheets("Sheet2").Cells(NextRow, 1).Resize(1, 2).Value = Array( _ Worksheets("Sheet1").Range("C10").value, _ Worksheets("Sheet1").Range("E12").value) End Sub

Interessante artikler...