Bạn dùng hàm SumIf hoặc CountIf để giải quyết.
Bạn chạy code này xem đúng không nhé.VBA.
Sub thongke()
With Sheet1
Dim arr, arr1, dic As Object, lr As Long, i As Long, j As Long, a As Long, b As Long
Set dic = CreateObject("scripting.dictionary")
.Range("J3:m26").ClearContents
arr = .Range("I2:M26").Value
For i = 2 To UBound(arr, 1)
dic.Item(arr(i, 1)) = i
Next i
For i = 2 To UBound(arr, 2)
dic.Item(arr(1, i)) = i
Next i
lr = .Range("B" & Rows.Count).End(xlUp).Row
arr1 = .Range("c2:G" & lr).Value
For i = 2 To UBound(arr1, 1)
a = dic.Item(Right(arr1(i, 1), 2))
If a Then
For j = 2 To UBound(arr1, 2)
b = dic.Item(arr1(1, j))
If b Then
If arr1(i, j) > 0 Then arr(a, b) = arr1(i, j) + arr(a, b)
End If
Next j
End If
Next i
.Range("I2:M26").Value = arr
End With
End SubHàm vầy được không nhỉ
Xin cảm ơn bạn nhé !
Góp ý cho bạn:
So với bảng dữ liệu kì công của bạn thì bảng của mình đúng là không đáng nhắc đến. Trước tiên, xin cảm ơn bạn đã nhiệt tình giúp đỡ. Nhân đây mình mong bạn giải đáp 3 thắc mắc
Cái đó là tôi thiết kế lại để cho bạn hiểu là nhập liệu theo chiều dọc thì có nhiều cái lợi hơn cách làm của bạn 52 tuần làm 52 bảng:
Tôi đã thống nhất các nội dung trên, mong bạn hướng dẫn !
Việc nhập liệu lỗi phải sử dụng VBA, bạn thấy thế nào?
Mình không biết sử dụng VBA
Nhờ bạn be90 hoàn thiện bảng thống kê trên, mình cũng cần file này. Trân trọng cảm ơn!
Đích xác là có chút tùy tiện, mong bạn thông cảm mà giúp đỡ !
Bạn ơi, đã xong chưa ?
Hôm nay rảnh mới làm xong, khi sử dụng cần lưu ý:
Xong rồi nè, đọc kỹ hướng dẫn bài 19.
