求助：按要求把数据填进对应的单元格。

yunwufengxue

求助：按要求把数据填进对应的单元格。

3190496160

Sub 档次()
With ActiveSheet
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 3 Then MsgBox "数据表为空！": End
    .Range("f3:l" & r) = Empty
    ar = .Range("a2:l" & r)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" And Trim(ar(i, 2)) <> "" Then
            lh = ar(i, 2) + 5
            For j = 6 To 12
                ar(i, j) = 0
            Next j
            ar(i, lh) = ar(i, 3)
        End If
    Next i
     .Range("a2:l" & r) = ar
End With
MsgBox "ok!"
End Sub

3190496160

3190496160

求助：按要求把数据填进对应的单元格。.rar (17.15 KB, 下载次数: 8)

2023-3-17 16:17 上传

点击文件名下载附件

yunwufengxue

3190496160 发表于 2023-3-17 16:17

感谢大神，就是这个结果，能不能再我加一句代码，E列的利率要跟随A列利率同时变动就更完美了。

3190496160

yunwufengxue

3190496160 发表于 2023-3-18 09:12

完美了，请问：
1h = ar(i, 2) + 5是怎么意思？