PK hỏi:
Tôi có một trang tính nơi tôi nhập một số giá trị. Khi nhấp vào nút macro, tôi muốn các giá trị hoặc kết quả tính toán của nó được nối vào một trang tính hoặc tệp khác.
Câu hỏi hay. Giả sử các giá trị nằm trong các ô C10 và E12 của Sheet1 và bạn muốn chúng được nối vào hàng tiếp theo trong Sheet2.
Bí quyết thực sự ở đây là mã để tìm hàng tiếp theo trên Sheet2. Bắt đầu từ hàng cuối cùng trong Sheet2 (A65536) và sau đó sử dụng .End (xlup) sẽ tìm hàng cuối cùng có dữ liệu trong cột A. Thêm 1 vào hàng đó sẽ chỉ bạn đến hàng tiếp theo cho dữ liệu trên Sheet2. Sử dụng mã này:
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
