请求修改VBA代码：添加倍数循环嵌套单位循环

修改后的VBA代码（外层倍数循环，内层单位数量循环） #

以下是按照要求修改的代码，将10-20的倍数循环嵌套在1-20的单位数量循环外层，确保每个倍数下都完整遍历所有单位数量：

Sub Calculate()
    Application.ScreenUpdating = False ' 关闭屏幕刷新提升运行速度
    
    Dim unitCounter As Integer
    Dim multiple As Integer
    
    ' 外层循环：遍历10到20的倍数值
    For multiple = 10 To 20
        Range("MULTIPLE").Value = multiple ' 给倍数单元格赋值
        
        ' 内层循环：遍历1到20的单位数量
        For unitCounter = 1 To Range("MAXUNIT").Value
            Range("NUMBER").Value = unitCounter ' 给单位数量单元格赋值
            
            ' 这里可添加你需要执行的计算逻辑，比如复制结果、触发公式计算等
            ' 示例：Cells(multiple - 9, unitCounter).Value = Range("计算结果单元格").Value
        Next unitCounter
    Next multiple
    
    ' 重置单位数量单元格为1（可选，按需保留）
    Range("NUMBER").Value = 1
    Application.ScreenUpdating = True ' 恢复屏幕刷新
End Sub

关键改动说明 #

• 改用更直观的For循环替代原有的Do Until，代码可读性更强
• 外层循环控制倍数值（10到20），内层循环控制单位数量（1到MAXUNIT）
• 添加屏幕刷新控制，避免循环过程中界面闪烁，大幅提升运行效率
• 变量命名更具语义化，便于后续维护

如果需要保留原有的Do Until结构，可使用以下版本：

Sub Calculate()
    Application.ScreenUpdating = False
    
    Dim i As Integer, j As Integer
    Dim Counter As Integer
    Dim maxUnit As Integer
    maxUnit = Range("MAXUNIT").Value
    
    ' 外层倍数循环（10-20）
    j = 10
    Do Until j > 20
        Range("MULTIPLE").Value = j
        
        ' 内层单位数量循环（1-maxUnit）
        Counter = 1
        i = 0
        Do Until i = maxUnit
            Range("NUMBER").Value = Counter
            i = i + 1
            Counter = Counter + 1
        Loop
        
        j = j + 1
    Loop
    
    Range("NUMBER").Value = 1
    Application.ScreenUpdating = True
End Sub

内容的提问来源于stack exchange，提问作者Dagobert