Excel - Copiați datele în următoarea celulă goală în foaia nouă

Problema

Încerc să fac un registru de lucru cu 2 coli care are detaliile de intrare în Fișa1

A1 și acest lucru este schimbat săptămânal, dar informațiile din această celulă ar trebui să fie

inserat în prima celulă necompletată din coloana A din foaia 2.

Am încercat acest cod (mai jos), dar nu pare să funcționeze și poate că sunt

a face ceva greșit. Poate cineva să-mi spună dacă acest cod ar trebui să funcționeze

în acest scop sau există un alt cod pe care îl pot încerca?

Cod utilizat în prezent:

 Sub copytonextsheet () Cu Sheets ("Sheet2") n = .Cells (Rows.Count, "A"). = _ Celule (1, "A"). Redimensionați (, 4) .Value End With End Sub 

Soluţie

Incearca asta:

 Sub CopyRowsWithNumbersInG () Dim X Ca lungime Dim LastRow Ca lungime Sursa diminuata ca foaie de lucru Dim destinatie ca foaie de lucru Dim RowsWithNumbers ca set de rang Sursa = foi de lucru ("nume") Set Destination = foi de lucru ("nume") Cu Source LastRow = .Cells (. (X, E)) Sfârșit (xlUp) .Rând pentru X = 2 la LastRow Dacă IsNumeric (.Cells (X, "E"). Apoi, dacă numerele RowsWithNumbers nu sunt setate apoi RowsWithNumbers = .Cells (X, "E") Alt set RowsWithNumbers = Union (RowsWithNumbers, .Cells (X, "E")) End If End Dacă Următorul Dacă RowsWithNumbers Nothing RowsWithNumbers.EntireRow .Copy Destination.Range ("A4") Sfârșit Dacă Sfârșit Cu MsgBox "Datele au fost actualizate!", VbExclamation + vbInformation, "Company Name" End Sub 

Datorită Kioskea_1 pentru acest sfat.