Bài toán về VBA - Tự động chuyển dữ liệu

[QL.GDHV2]

Chào các anh chị, em đang phải xây dựng file chấm điểm cho học viên, tuy nhiên có phần vướng khi làm VBA,
Tại sheet DIEM_CANHAN cần tạo VBA có thể giúp chuyển dữ liệu điểm qua Sheet DS_CHAMDIEMTUAN, tuy nhiên em chưa thạo về VBA rất mong các anh chị hỗ trợ với ạ !

Ngoài ra cách tính điểm xếp loại như em đang làm liệu có cách nào tối ưu hơn không ạ, dữ liệu của em có hơn 1k học viên khi chạy lọc bằng các hàm =SUBSTITUTE, TRIM, LEN... load bị chậm ạ !

Em xin cảm ơn !

 

[BuiQuangThuan]

cảm ơn anh, em đã edit ạ !

Code anh chị đã viết đâu. Nó bị chậm là như nào?

 

[QL.GDHV2]

Code anh chị đã viết đâu. Nó bị chậm là như nào?

Mình đang tự làm như này, tìm cách làm như này

Sub NhapLieu()
Dim wsDiemCaNhan As Worksheet
Dim wsDSChamDiemTuan As Worksheet
Dim lastRowDS As Long
Dim lastRowDiemCaNhan As Long
Dim i As Long
Set wsDiemCaNhan = ThisWorkbook.Sheets("DIEM_CANHAN")
Set wsDSChamDiemTuan = ThisWorkbook.Sheets("DS_CHAMDIEMTUAN")


lastRowDS = wsDSChamDiemTuan.Cells(wsDSChamDiemTuan.Rows.Count, 1).End(xlUp).Row + 1
lastRowDiemCaNhan = wsDiemCaNhan.Cells(wsDiemCaNhan.Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRowDiemCaNhan
wsDSChamDiemTuan.Cells(lastRowDS, 1).Resize(, wsDiemCaNhan.Columns.Count).Value = wsDiemCaNhan.Cells(i, 1).Resize(, wsDiemCaNhan.Columns.Count).Value
lastRowDS = lastRowDS + 1
Next i

wsDiemCaNhan.Range("A2:Z" & lastRowDiemCaNhan).ClearContents

MsgBox "Đ? nh?p li?u thành công và reset d? li?u ? b?ng DIEM_CANHAN", vbInformation
End Sub

Tuy nhiên code lại ghi toàn bộ những gì trên DIEM_CANHAN sang DS_CHAMDIEMTUAN

 

[BuiQuangThuan]

Code bài này không phải là thu macro là giải quyết được vấn đề. Cấu trúc dữ liệu nó không đồng nhất giữa kết quả và nguồn

Trong sheet DS_CHAMDIEMTUAN không có hiển thị là đưa tuần nào qua. Thì khi bấm Nút Thêm mới. Tuần nào sẽ được đưa qua sheet DS_CHAMDIEMTUAN