求修改返利计算的代码

sanfuhai

学写了一个判断，运行结果，总是选择了第一个判断，详情请见代码，或求大神另写一个返利计算的代码 求修改返利计算的代码.rar (15.31 KB, 下载次数: 3)

2020-7-31 23:00 上传

点击文件名下载附件

zjdh

Sub 返利计算()
    Range("CT4:CT999") = ""
    For I = 4 To Range("CR1000").End(3).Row
        R = Application.CountA(Range(Cells(I, "DC"), Cells(I, "DJ")))
        For J = R To 2 Step -2
            If Cells(I, "CR") >= Range("DB" & I).Offset(, J - 1) Then
                Cells(I, "CT") = Cells(I, "CS") * Range("DB" & I).Offset(, J)
                Exit For
            End If
        Next
    Next
End Sub