ad choe e hỏi: sao e làm y như vậy mà nó k ra kết quả ạ?
bạn viết đoạn ghi kết quả dòng cuối ra ô D1 chưa đúng.
Nơi nhận viết trước:
trang_tinh1.Range("D1").value = dongcuoi
code của bạn đang ghi nhận 2 lần giá trị cho biến dongcuoi nên kết quả sẽ không có giá trị nào cả (vì lệnh cuối cùng là
dongcuoi = trang_tinh1.Range("D1").value
trong khi ô D1 là ô trống nên dongcuoi = 0