Mình chỉ copy điểm sang thôi còn Họ và tên không biết đâu nha
Mình chỉ copy điểm sang thôi còn Họ và tên không biết đâu nha
Bạn ơi, giúp mình vớiMình chỉ copy điểm sang thôi còn Họ và tên không biết đâu nha
Cái này mình không biết giải thicha làm sao. Thôi cứ tạm như vầy
cám ơn bạn nhưng mình muốn hỏi 1 vấn đề nữa, giả sử như 1 bảng 1 dòng ko có dữ liệu ví dụ như bảng toán tên của 1 ai đó ko có điểm thì có thể bỏ qua ko? tức là khi copy nếu dòng nào trống thì để trống rồi copy tiếp dòng có dữ liệu... nếu bạn biết giúp mình với, còn ko dc thì đành chịu dù sao cám ơn bạn rất nhiều
Bạn kiểm tra file xem, đúng ý chưa nhé
cám ơn bạn nhưng có vấn đề giả sử như 1 bảng 1 dòng ko có dữ liệu ví dụ như bảng toán không có tên của 1 ai đó thì có thể bỏ qua ko? tức là khi copy nếu dòng nào trống thì để trống rồi copy tiếp dòng có dữ liệu giống như dùng vlookup để dựa vào tên lấy điểm nều giúp đc giúp mình với không thì đành chịu...cám ơn bạn rất nhiều
Cám ơn bạn, file mình đây ý của mình muốn hỏi là nếu như ở một số file ko có tên như file thống kê vậy có cách nào dựa vào tên ở file thống kê như dùng hàm vlookup để lấy dữ liệu qua đc ko ạ??
Thêm mã thì:
Ví dụ như Mã là HS001 vậy phải sửa thế nào bạn? mình mới tìm hiểu nên ko biết gì cả, mong giúp đỡ ạ
Bạn thử đoạn sau:
Sub TkDiem()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Ipath As String, iMon() As Variant, Mon(), TB(), MA(), tmp()
Dim i As Integer, k As Byte, er As Long, lr As Long, r As Long, ir As Long
er = Sheet1.Range("C65000").End(xlUp).Row
MA = Sheet1.Range("B5:B" & er).Value
Ipath = GetFolder(""): If Ipath = "" Then Exit Sub
iMon = GetFileList(Ipath)
Mon = Sheet1.Range("E4:L4").Value
ReDim TB(1 To UBound(MA, 1), 1 To UBound(Mon, 2))
For i = 1 To UBound(iMon)
For k = 1 To UBound(Mon, 2)
If Replace(iMon(i), ".xlsx", "") Like "*" & Mon(1, k) Then
Workbooks.Open Filename:=Ipath & "\" & iMon(i), ReadOnly:=True
With ActiveWorkbook.Sheets("Sheet1")
lr = .Range("C65000").End(xlUp).Row
tmp = .Range("A3:R" & lr).Value
For r = 1 To UBound(TB, 1)
For ir = 1 To UBound(tmp, 1)
If MA(r, 1) = tmp(ir, 1) Then
TB(r, k) = tmp(ir, UBound(tmp, 2)): Exit For
End If
Next ir
Next r
End With
Workbooks(iMon(i)).Close
End If
Next k
Next i
Sheet1.Range("E5").Resize(UBound(TB, 1), UBound(TB, 2)).ClearContents
Sheet1.Range("E5").Resize(UBound(TB, 1), UBound(TB, 2)).NumberFormat = "0.0"
Sheet1.Range("E5").Resize(UBound(TB, 1), UBound(TB, 2)).Value = TB
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Xóa đi thì lấy gì mà tổng hợp?xin lỗi do mình nói ko rõ ràng, ý mình là xóa dữ liệu trong cột họ va tên chỉ xóa dữ liệu thôi vị trí cột vẫn giữ nguyên chỉ dựa vào Mahs để chạy code lấy điểm thì ko đc!! Làm phiền bạn quá do lúc này mình đang lên bằng điện thoại nên ko gửi file lên đc nếu đc sáng mình sẽ gửi lên ạ
er = Sheet1.Range("C65000").End(xlUp).Row
...
lr = .Range("C65000").End(xlUp).Rower = Sheet1.Range("B65000").End(xlUp).Row
...
lr = .Range("A65000").End(xlUp).Row
