将公式插入可变数量的行中

到目前为止，我已经设法创build一个searchfunction，扫描列和收集数组中的行。 然后我在另一张纸上打印数组以形成一张表格。 我用一些标准来做到这一点，这意味着我得到不同大小的不同数组。

对于我的问题。 我想为每一行做一个计算。 ActiveCell.FormulaR1C1 =" = TRUNC ((RC [-5], RC [-1]) / 7) " 。 我如何制作适应多less行的循环？ 有些地方也有差距。

这里是一个如何打印一个数组的例子：

 For i = 1 To nS - 1 Sheets("DataSheet").Select Union(Sheets("raw_list").Cells(arrStart(i), NameCol), Sheets("raw_list").Cells(arrStart(i), PhaseCol), Sheets("raw_list").Cells(arrStart(i), ToStartCol), Sheets("raw_list").Cells(arrStart(i), ToDefineCol), Sheets("raw_list").Cells(arrStart(i), ToMeasureCol), Sheets("raw_list").Cells(arrStart(i), ToAnalyseCol), Sheets("raw_list").Cells(arrStart(i), ToImproveDevCol), Sheets("raw_list").Cells(arrStart(i), ToImproveIndCol), Sheets("raw_list").Cells(arrStart(i), ToControlCol), Sheets("raw_list").Cells(arrStart(i), ToClosedCol)).Copy Cells(r, 1).Select ActiveSheet.Paste With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With r = r + 1 Next 

感谢任何帮助！

编辑：添加一张图片来显示它的外观。

Answer 1

如果存在差距，我们在工作中使用的是一种简单但不太典雅的解决scheme，即在相邻列中添加某种标记。 例如，我们在同一行的单元格中添加“END”或类似的东西，但是col + 1或col-1到您正在比较的列中。

另一种解决方法是查看下一个元素是否也是空白的，但是只有当你有单一的空白才能工作。

最后，我看到的最后一个解决scheme是，当你在空白的时候，使用xlDown，如果你在2003年的最后一个单元65535，如果我的记忆为我服务，那么在2007年接近一百万，那么你就完成了。