Vba 带三个变量的嵌套for循环-执行顺序清晰-附加所有变量组合

我正在使用一个文件，其中包含给定输入的自动计算。使用[Sub:Other_Sub_Calc]

此代码的目的是获得3个不同变量的所有组合（列在“sheet4”列a:c中）以及相应的结果[Cell:b61]复制到单独的表中（而不是单独运行每个组合）

代码似乎只在某些地方使用了两个变量，但我在添加第三个变量时把事情搞砸了

我为我糟糕的vba知识感到抱歉，我认为有更好的知识的人可以相对快速地在这个简单的代码中发现我的错误

如果有人能帮忙，请提前谢谢

Sub Expected_results()


Dim age, town, studylength As Range
Dim lastrow As Integer

'Variables
Set age = Sheets("Sheet4").Range("a2:a5")
Set town = Sheets("Sheet4").Range("b2:b6")
Set studylength = Sheets("Sheet4").Range("c2:c6")



For Each Year In age
    Sheets("Summary").Range("B28").Value = volume

        For Each Location In town
            Sheets("Summary").Range("B34").Value = Ratio
           
           For Each duration In studylength
            Sheets("Summary").Range("B29").Value = Ratio
            
            
            Other_Sub_Calc 'Example Sub to be ran for each combination of variables
            
'copy and append each generated result
 Worksheets("Summary").Range("b61").Copy 
 Worksheets("Sheet5").Range("d2" & lastrow + 1).PasteSpecial
                  
        Next age
        
    Next Location
        
Next duration


End Sub

---

你接下来的陈述顺序不对。应该是下一个持续时间，下一个地点，下一个年龄。如前所述，由于上述原因，代码不会运行。为什么要使用两次比率？谢谢回复！我觉得我很抱歉，因为我注意到了我上一个问题中的错误，现在就完成了