Bài 7: Thực hành lưu dữ liệu từ sheet này sang sheet khác bằng VBA

[@BinhNguyen-fr2lv]

Rất hay và để hiểu, cảm ơn

[@thienvu594]

Cảm ơn thầy

[@thanhle-xb3bp]

Cảm ơn anh, anh đã dạy rất cẩn thận và chuyên nghiệp!

[@yeucamsu9479]

cảm ơn, thầy. mới học đến bài này mình đã viết đc những dòng lệnh ntn rồi, tuy đơn giản nhưng rất vui. tất cả đều từ nhưng kiến thức từ những bài trc.

[@onghophu9205]

rất hay

[@phongcanh91]

Cám ơn thầy.

[@lamnguyenvan-de4xo]

thay vì dùng những hàm có sẵn gây khó hiểu cho người mới. ta có thể dùng vòng for để thay cho lệch copy paste cũng dc ạ

[@yeucamsu9479]

cách rowscout này các bạn mới hơi khó hiểu. mình có 1 cách khác là đếm CountA(b7:b30000), tức là nếu đếm số học sinh bên cột thổng hợp. rồi gán giá trị i . khi nhập giá trị mới thì sẽ là i+1

[@longtranthanh1178]

Nếu mình muốn copy theo hàng dọc luôn thì làm như thế nào ạ

[@phuctruong5871]

lúc mình nhấn nút lưu thì có cách nào nó tự động chuyển qua sheet tổng hợp luôn ko ạ

[@yeucamsu9479]

Sub baitap3()
Dim i As Long
Dim j As Long
Dim a As Long
Sheet2.Range("B4").Formula = "=Counta(B7:B300)"
i = Sheet2.Range("B4")
j = i + 7
With Sheet2
For a = 3 To 6
.Cells(j, a - 1) = Sheet1.Cells(a, 2)
Next a
End With
Sheet1.Activate
Range("b3:b6").ClearContents

[@MrKhuong1991]

Cảm ơn thầy ạ