Giúp mình giải quyết đoạn code này cái (1 người xem)

[totoha]

Mình có đoạn code này mình không hiểu luật tính của nó mọi người có thể giải thích giúp em được không
NÓ thực hiện tính như thế nào
Mình không thành thạo Excell lắm

For rW = 1 To data.Range("B10000").End(3).Row - 1        For i = 4 To Range("A10000").End(3).Row
        If Cells(i, 1) = data.Cells(rW, 1) Then
            Trc1 = WorksheetFunction.CountIf(data.Range("AD" & rW + 1 & ":BD" & rW + 1), CDbl(Left(Cells(i, "E"), 2)))
            Sau1 = WorksheetFunction.CountIf(data.Range("AD" & rW + 1 & ":BD" & rW + 1), CDbl(Right(Cells(i, "E"), 2)))
            Trc2 = WorksheetFunction.CountIf(data.Range("AD" & rW + 2 & ":BD" & rW + 2), CDbl(Left(Cells(i, "E"), 2)))
            Sau2 = WorksheetFunction.CountIf(data.Range("AD" & rW + 2 & ":BD" & rW + 2), CDbl(Right(Cells(i, "E"), 2)))
            Trc3 = WorksheetFunction.CountIf(data.Range("AD" & rW + 3 & ":BD" & rW + 3), CDbl(Left(Cells(i, "E"), 2)))
            Sau3 = WorksheetFunction.CountIf(data.Range("AD" & rW + 3 & ":BD" & rW + 3), CDbl(Right(Cells(i, "E"), 2)))
            Trc4 = WorksheetFunction.CountIf(data.Range("AD" & rW + 4 & ":BD" & rW + 4), CDbl(Left(Cells(i, "E"), 2)))
            Sau4 = WorksheetFunction.CountIf(data.Range("AD" & rW + 4 & ":BD" & rW + 4), CDbl(Right(Cells(i, "E"), 2)))
            Trc5 = WorksheetFunction.CountIf(data.Range("AD" & rW + 5 & ":BD" & rW + 5), CDbl(Left(Cells(i, "E"), 2)))
            Sau5 = WorksheetFunction.CountIf(data.Range("AD" & rW + 5 & ":BD" & rW + 5), CDbl(Right(Cells(i, "E"), 2)))