VBA 使用每个循环来划分一个范围

Question

我有一个值范围（估计的项目时间），我有一个状态单元格（估计的项目总时间。我也有使用 vba 生成的日期列。本质上，我想划分范围内的每个单元格通过状态总估计小时单元格，并为每个日期在该行中重复该值（给出每周估计小时数）。该行完成后，我想下降到该范围内的下一个单元格并重复该过程。

到目前为止，这是我的代码：

Sub headers()
    Dim start As Double
    Dim weeks As Integer

    start = Range("B1").Value
    weeks = Range("B3").Value
    For i = 0 To weeks - 1
        Cells(8, 5 + i).Value = start + 4 + (i * 7)
    Next

End Sub


Sub PopulateValues()
    Dim weeks As Integer
    Dim rRng As Range
    Dim rCell As Range

    weeks = Range("B3").Value
    resources = Range("B6").Value
    Set rRng = Range("D9:D50")

    For Each rCell In rRng.Cells

        If IsEmpty(rCell.Value) Then Exit For

        For i = 0 To weeks - 1
            Cells(9, 5 + i).Value = rCell.Value / weeks
        Next
    Next rCell

End Sub

它所做的是循环遍历范围，但它在同一行上进行所有除法，从不迭代到下一行。

任何帮助都会很可爱。

提前致谢。

https://www.dropbox.com/s/l6dxa9ethbsix58/VBA.PNG?dl=0

Answer 1

所以在你的 for 循环中你有 Cells(9, 5 + i).Value。这里的变量是列的“i”。

你需要另一个变量 对于 rRng.Cells 中的每个 rCell

    If IsEmpty(rCell.Value) Then Exit For
    For j = 0 to weeks - 1
        For i = 0 To weeks - 1
            Cells(9+j, 5 + i).Value = rCell.Value / weeks
        Next
    Next
Next rCell

它将从第一行 9 (9 + j = 9) 开始，经过所有列 (i) 后，它将转到下一个 j（第 10 行）。