求vba大神，遍历循环！！！

飞夜弦静

遍历不规格区域中每个元素，求对应加工时间，再判断该元素上面所有元素加工时间之和是否>4,若>,就剪到改行最后+1列  太难了  ！！！ 求大神

注：就是从1/1的香辣美容蹄200kg开始，求各个产品对应的各个工序加工时间，再看看1/1各个工序有没有超产能（例初加工之和不能大于4），超产能就延后，以此类推

mschenyj

Sub xunhuan()
Dim i, s As Integer
For i = 6 To 15
    s = Range("G" & i)
    Range(Cells(i, 8), Cells(i, 8 - 1 + s)) = Range("F" & i)
Next
End Sub
能做到你所表示的效果，但如果是工次不被整除，还有添加一行代码

mschenyj

如果你的加工次数不被整除，例：香辣美容蹄数量900，每天加工200，加工次数为4.5，则只需加一行代码
Sub xunhuan()
Dim i, s As Integer
For i = 6 To 15
    s = Range("G" & i)
    Range(Cells(i, 8), Cells(i, 8 - 1 + s)) = Range("F" & i)
        If Range("E" & i) > Application.WorksheetFunction.Sum(Range(Cells(i, 8), Cells(i, 8 - 1 + s))) Then
            Cells(i, 8 + s) = Range("E" & i) - Application.WorksheetFunction.Sum(Range(Cells(i, 8), Cells(i, 8 - 1 + s)))
        End If
Next
End Sub

mschenyj

最终代码：
Sub xunhuan()
Dim i, s As Integer
For i = 6 To 15
    s = Range("G" & i)
    Range(Cells(i, 8), Cells(i, 8 - 1 + s)) = Range("F" & i)
        If Range("E" & i) > Application.WorksheetFunction.Sum(Range(Cells(i, 8), Cells(i, 8 - 1 + s))) Then
            Cells(i, 8 + s) = Range("E" & i) - Application.WorksheetFunction.Sum(Range(Cells(i, 8), Cells(i, 8 - 1 + s)))
        End If
        If Range("E" & i) < Application.WorksheetFunction.Sum(Range(Cells(i, 8), Cells(i, 8 - 1 + s))) Then
            Cells(i, 8 - 1 + s) = Range("E" & i) - Application.WorksheetFunction.Sum(Range(Cells(i, 8), Cells(i, 8 - 2 + s)))
        End If
Next
End Sub