Sửa giúp mình bài tập For eah cho tính tông sau

Chào bạn bạn xem trong bài giảng có phần code mẫu đó

Sub Thuong_BP_KinhDoanh()
    Dim BoPhan as Range
    Set BoPhan =  Worksheets("10").Range("F16:F22")
    Dim i as Range
    For Each i in BoPhan
        If i.Value = Range("I16").Value Then
            i.Offset(0, 1).Value = Range("J16").Value
        End If
    Next i
End Sub

Code mẫu đó đâu có đúng đâu bạn cho bài tập này đâu bạn, mình dùng hàm for thì kq đúng , nhưng dùng hàm for each thì chỉ cho kết quả đúng dòng C9 , còn dòng tiếp theo cho kết quả sai 

For Each i In Loinhuan

      i.Value = (Range("A9" & i).Value * Range("B9" & i).Value) - (Range("B9" & i).Value * Range("D2").Value + Range("D1").Value)

     Next i

Bạn hướng dẫn giúp lại nhé. Cảm ơn bạn

Chào bạn bạn có thể đẩy file đang làm của bạn lên để gitiho kiểm tra giúp bạn không?

Chào bạn, mình đã hiểu và sửa lại code đúng như bên dưới rồi nhé

Cảm ơn bạn nhiều

Sub XacdinhLoinhuan_02()

' Vong lap For Each... Next

' Gan bien doi tuong

    Dim Loinhuan As Range

        Set Loinhuan = Range("C9:C13")

' Gan bien phan tu

    Dim i As Variant

       For Each i In Loinhuan

     i.Value = (i.Offset(0, -2).Value * i.Offset(0, -1).Value) - (i.Offset(0, -1).Value * Range("D2").Value + Range("D1").Value)

     Next i

End Sub