Nhờ viết hộ code để trích lọc dữ liệu (1 người xem)

[le phuong van]

Các bạn giúp mình giải quyết vấn đề sau:
Mình có một bảng tổng hợp điểm cuối năm, giả sử em A và D bị thi lại, cuối bảng tổng hợp có bảng xét kết quả sau thi lại. Phần họ và tên em A và D có thể dùng hàm để tham chiếu. Nhưng làm thế nào để điểm các môn học của học sinh A và D đều hiện lên trong khối D48:Q98, (lấy từ bảng tổng hợp ở trên) nhưng sau khi thi lại ta có thể gõ vào thay điểm mới thi để xét lên lớp? Không thể dùng công thức viết trực tiếp, vì sau thi lại người dùng gõ điểm mới vào sẽ làm mất công thức trong ô đó.
Chú ý trong bảng này giả sử các ô tô màu đều có công thức
Cám ơn các bạn nhiều!

 

[huuthang_bd]

Các bạn giúp mình giải quyết vấn đề sau:
Mình có một bảng tổng hợp điểm cuối năm, giả sử em A và D bị thi lại, cuối bảng tổng hợp có bảng xét kết quả sau thi lại. Phần họ và tên em A và D có thể dùng hàm để tham chiếu. Nhưng làm thế nào để điểm các môn học của học sinh A và D đều hiện lên trong khối D48:Q98, (lấy từ bảng tổng hợp ở trên) nhưng sau khi thi lại ta có thể gõ vào thay điểm mới thi để xét lên lớp? Không thể dùng công thức viết trực tiếp, vì sau thi lại người dùng gõ điểm mới vào sẽ làm mất công thức trong ô đó.
Chú ý trong bảng này giả sử các ô tô màu đều có công thức
Cám ơn các bạn nhiều!

Sub TrichLoc()
Bạn dùng code này:

Sub TongHop()
[D84:Q98].ClearContents
For Each Rng In [B84:B98]
    If Rng = "" Then Exit Sub
    Set Rng1 = [B5:B59].Find(Rng, LookAt:=xlWhole)
    If Not Rng1 Is Nothing Then
    Rng.Offset(, 2).Resize(1, 14).Value = Rng1.Offset(, 2).Resize(1, 14).Value
    End If
Next
End Sub

Khi nào cần trích lọc điểm thì chạy lại code.