我有一个可以通过以下代码复制的数据集：
Sub dummy_dat
Sheets("Sheet1").Cells(1,4) = "Amount of Milestones"
Sheets("Sheet1").Cells(1,5) = 8
Sheets("Sheet1").Cells(2,4) = "Amount"
Sheets("Sheet1").Cells(2,5) = 120000
Sheets("Sheet1").Cells(3,2) = "Milestone 1"
Sheets("Sheet1").Cells(4,2) = "Milestone 2"
Sheets("Sheet1").Cells(5,2) = "Milestone 3"
Sheets("Sheet1").Cells(6,2) = "Milestone 4"
Sheets("Sheet1").Cells(3,3) = "25%"
Sheets("Sheet1").Cells(4,3) = "30%"
Sheets("Sheet1").Cells(5,3) = "50%"
Sheets("Sheet1").Cells(6,3) = "100%"
Sheets("Sheet1").Cells(3,4) = 3
Sheets("Sheet1").Cells(4,4) = 4
Sheets("Sheet1").Cells(5,4) = 5
Sheets("Sheet1").Cells(6,4) = 7
end sub
我现在想要创建的是自动将百分比放在相关周中的内容，也可以为空周提供总和。因此，第1周和第2周是空的，但这些应该在第3周填满33％和66％的价值。第6周的价值应该是里程碑5和7中金额之差的一半。 / p>
所以最终结果应该是
1 10.000
2 20.000
3 30.000
4 42.000
5 42.000
6 90.000
7 120.000
8 120.000