计算数组内容的总和，并根据条件列出它

以下代码列出了活动单元格中v(v1(i))数组内容及其偏移量。 我想在上市前提出一个条件。 我想在列表之前检查v1数组中所有值的总和，如果总和>=5且<=10那么只列出它。 我怎样才能做到这一点？

 v1 = Split(Replace(Trim(s), "'", ""), " ") For i = LBound(v1) To UBound(v1) ActiveCell.Offset(0, i) = v(v1(i)) Next 

谢谢

Answer 1

这应该做你想要的。

 v1 = Split(Replace(Trim(s), "'", ""), " ") For i = LBound(v1) To UBound(v1) t = t + Val(v1(i)) Next i If t >= 5 And t <= 10 Then For i = LBound(v1) To UBound(v1) ActiveCell.Offset(0, i) = v(v1(i)) Next i End If