Excel - Salin data ke dalam sel kosong seterusnya dalam helaian baru

Isu

Saya cuba membuat buku kerja 2 lembar yang mempunyai butiran input dalam Sheet1

A1 dan ini diubah mingguan tetapi maklumat dalam sel ini kemudiannya akan menjadi

dimasukkan ke dalam sel kosong pertama dalam Lajur A dalam Helaian 2.

Saya telah mencuba kod ini (di bawah) tetapi nampaknya tidak berfungsi dan mungkin saya

melakukan sesuatu yang salah. Bolehkah seseorang memberitahu saya jika kod ini berfungsi?

untuk tujuan ini atau ada kod lain yang saya boleh cuba?

Kod yang digunakan pada masa sekarang:

 (X), (A), (A), (), (A) = _ Sel (1, "A"). Ubah saiz (, 4). End End dengan Sub Akhir 

Penyelesaian

Cuba ini:

 Sub CopyRowsWithNumbersInG () Dim X Sebagai Long Dim LastRow Sebagai Long Dim Sumber Sebagai Lembaran Kerja Dim Destination Sebagai Worksheet Dim RowsWithNumbers As Range Set Source = Worksheets ("name") Set Destination = Worksheets ("name") With Source LastRow = .Cells (. (X, "E") Nilai. Dan .Cells (X, "E"). Nilai "" Kemudian Jika RowsWithNumbers Tidak Ada Kemudian Set RowsWithNumbers = .Cells (X, "E") Lain Set RowsWithNumbers = Kesatuan (RowsWithNumbers, .Cells (X, "E")) Akhir Jika Akhir Jika Seterusnya Jika Bukan RowsWithNumbers Tidak Ada Kemudian RowsWithNumbers.EntireRow . Destination Destination.Range ("A4") Akhir Jika Akhir Dengan MsgBox "Data telah dikemas kini !!", vbExclamation + vbInformation, "Nama Syarikat" Sub Akhir 

Terima kasih kepada Kioskea_1 untuk petua ini.