Excel - kopeeri andmed järgmisesse tühja lahtrisse uues lehes

Probleem

Püüan teha 2-lehelise töövihiku, millel on lehel 1 sisendandmed

A1 ja seda vahetatakse kord nädalas, kuid selle lahtri info peaks olema

sisestatakse esimesele tühjale lahtrile lehel 2 veerus A.

Olen proovinud seda koodi (allpool), kuid see ei tundu töötavat ja võib-olla olen

midagi valesti. Kas keegi saaks mulle teada, kas see kood peaks toimima

selleks on veel üks kood, mida ma võiksin proovida?

Praegu kasutatav kood:

 Sub copytonextsheet () koos lehtedega ("Sheet2") n = .Kell (read.Count, "A"). End (xlUp) .Row + 1 .Kellad (n, "A"). Suuruse muutmine (, 4). = _ Rakud (1, "A"). Suuruse muutmine (, 4) .Väärtus Lõpeta lõpus 

Lahendus

Proovi seda:

 Sub CopyRowsWithNumbersInG () Dim X nii kaua Dim LastRow nagu pikk Dim Allikas töölehel Dim Sihtkoht töölehtena Dim RowsWithNumbers As Range Set Allikas = Töölehed ("nimi") Määra sihtkoha = Töölehed ("nimi") Allikaga LastRow =. Rida.Count, "E".) End (xlUp). Row X = 2 LastRow-le Kui IsNumeric (.Cells (X, E)). Value) Ja .Cells (X, E). Seejärel, kui rida ei nummerdata numbreid, siis määrake riduWithNumbers = .Cells (X, E) Else Set RowsWithNumbers = Liit (RowsWithNumbers, .Cells (X, E))) Lõpeta, kui lõpeb, kui järgmine ei ole ridu .Copy Destination.Range ("A4") Lõpp Kui MsgBoxiga lõppeb "Andmed on uuendatud!", VbExclamation + vbInformation, "Ettevõtte nimi" Lõpeta alam 

Täname Kioskea_1 selle näpunäite eest.