excel - Excel 2010 VBA根据定义的变量在指定单元格中重复公式

Question

这边也问了。

我有一个带有“报告段”的导出，每行总是 22 行，当带入 Excel 时，第一个总是从第 5 行开始。最后一行（包含“报告结束”特殊字符）为 247 的文档将具有 11 个报告段。

在每个报告部分中，需要两个不同的公式。

对于第一个报告段，始终位于 A5 到 J27 行：

在 Excel 2010 中使用 VBA，我需要将 FORMULA1 放在该范围的所有单元格中（D5:D15 拖出到 H5:H10（不是 15）和 D18），并将 FORMULA2 放在单元格中（F20:F22，J20:J22）。

然后我需要重复vTaskCount次数（段数）并以 22 次间隔（段中继器偏移）。有些报告可能有 2 个段，有些可能有 50 个段，但结构始终相同。我希望因为我可以告诉它重复该过程的次数，它会使其更简单。

Answer 1

尝试这样的事情：

sub whatever()
dim lNumSegs as long, lLoop as long

lNumSegs=(cells(rows.count,1).end(xlup).row-5)/22

for lLoop =1 to lnumsegs
   range(D5:D15).offset((lloop-1)*22).formular1c1="=FOrmula1"
   range(H5:H10).offset((lloop-1)*22).formular1c1="=FOrmula1"
   range(D18).offset((lloop-1)*22).formular1c1="=FOrmula1"

   range("F20:F22,J20:J22").offset((lloop-1)*22).formular1c1="=FOrmula2"
next lloop

end sub