Question

我有一个代码模块，可以向表单添加行，然后使用公式填充它们。最后一行下面是一个Totals行，即非连续范围H21：M21，W21：AC21，AF21，AL21：AR21，AU21。

我想要实现的是从用于查找最后一行（在总计行之前）的变量中分配行号，即i1stSumRow，然后将Sum公式复制到范围中的每个单元格。列ID是固定，只有行号改变。

代码部分如下：

    With ActiveSheet
    i1stSumRow = Cells(.Rows.count, "G").End(xlUp).Row
    .Range("G" & (i1stSumRow)).Select
    End With

ActiveCell.Select
formulatext = "=SUM(G" & (intLast_CS_Sheet) & ":" & "G" & (i1stSumRow - 2) & ")"
ActiveCell.Formula = formulatext
Selection.Copy
Range("H21:M21,W21:AC21,AF21,AL21:AR21,AU21").Select
Range("AU21").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C10").Select

我尝试过Range（“H”＆amp;（i1stSumRow）＆amp;“：”＆amp;“M”＆amp;（i1stSumRow）等，但没有成功。

Answer 1

这样的事情怎么样？

for j = 7 to 13  //Columns G through M
  cells(i1stSumRow, j) = worksheetfunction.sum(range(cells(intLast_CS_Sheet,j),cells(i1stSumRow - 2, j)))
next j

将变量行号分配给范围中的固定列

1 个答案: