excel - Excel VBA - 插入新行后向下拖动公式和格式

Question

我有一些代码可以将可变数量的行添加到 Excel 表单中的现有表中，我需要一些代码将 B36:L36 中的单元格格式和公式向下拖动到新插入的行中。

该宏将始终从第 37 行开始添加新行，但它添加的行数是可变的，因此代码只需复制格式（B 列和 C 列合并，然后是 H、J 和 L 列中的公式。

编辑 - 添加行的代码如下。这从 BRF 宏表中进行计数，如果它高于 20，则添加额外的表行。

If (Workbooks(ProjectCostReport).Worksheets("BRF Macro").Range("I1") > 20) Then

Dim rowstoadd As Integer
rowstoadd = Workbooks(ProjectCostReport).Worksheets("BRF Macro").Range("i1") - 20


Workbooks("NEW UKOTC 2020 BRF.xlsx").Worksheets("T&M BRF").Rows("37:" & 37 + rowstoadd).Insert

Excel表格截图

标签： excelvba