Excel - Sao chép dữ liệu vào ô trống tiếp theo trong trang tính mới

Vấn đề

Tôi đang cố gắng tạo một sổ làm việc 2 tờ có các chi tiết đầu vào trong Trang 1

A1 và điều này được thay đổi hàng tuần nhưng thông tin trong ô này sẽ là

được chèn vào ô trống đầu tiên trong Cột A trong Bảng 2.

Tôi đã thử mã này (bên dưới) nhưng có vẻ như nó không hoạt động và có lẽ tôi

làm điều gì đó sai Ai đó có thể cho tôi biết nếu mã này nên hoạt động

cho mục đích này hoặc có một mã khác tôi có thể thử?

Mã được sử dụng hiện nay:

 Sub copystylextsheet () With Sheets ("Sheet2") n = .Cells (Rows.Count, "A"). End (xlUp) .Row + 1 .Cells (n, "A"). Thay đổi kích thước (, 4) .Value = _ Các ô (1, "A"). Thay đổi kích thước (, 4). Kết thúc giá trị với kết thúc phụ 

Dung dịch

Thử đi:

 Sub CopyRowsWithNumbersInG () Dim X As Long Dim LastRow As Long Dim Source As Worksheet Dim Destination As Worksheet Dim RowsWithNumbers As Range Set Source = Worksheet ("name") Đặt Destination = Worksheet ("name") với Source LastRow = .Cells (. Rows.Count, "E"). End (xlUp) .Row For X = 2 To LastRow If IsNumeric (.Cells (X, "E"). Value) Và .Cells (X, "E"). Value "" Sau đó, nếu RowsWithNumbers không là gì thì hãy đặt RowsWithNumbers = .Cells (X, "E") Else Set RowsWithNumbers = Union (RowsWithNumbers, .Cells (X, "E") Kết thúc nếu kết thúc nếu tiếp theo .Copy Destination.Range ("A4") Kết thúc nếu kết thúc với MsgBox "Dữ liệu đã được cập nhật !!", vbExclamation + vbIn information, "Tên công ty" End Sub 

Cảm ơn Kioskea_1 cho mẹo này.