Question

这是我的代码

With Worksheets("Sheet1")
  For x = 5 To x = 30 Step 1
    Set addRange1 = .Range(.Cells(x, 4), .Cells(x, myCount2))
    cell(x, myCount2 + 2).Value = Application.Sum(addRange1)
Next
End With

第一行是单元格（5,4）到单元格（5,20）或其他东西。求和该行的值并将其显示在单元格中（5,22）重复到x = 30

希望很清楚获取空白单元格，其中sum值应为

Answer 1

这是正确的：

With Worksheets("Sheet1")
    For x = 5 To 30
        Set addRange1 = .Range(.Cells(x, 4), .Cells(x, myCount2))
        Cells(x, myCount2 + 2).Value = Application.Sum(addRange1)
    Next
End With

For ... Next不正确。而不是To x = 30，它必须是To 30。

告知此处发生的事情：如果您一步一步地浏览代码，您会发现For ... Next内的所有内容都从未执行过。这是因为For设置x中的x = 30到值30，这是For的结尾，因此永远不会执行For。

Step 1不是必需的，默认情况下为1您可以将其删除或保留，但不是必需的。

正如Darren Bartrup-Cook所说，它必须是Cells而不是Cell。

循环遍历行并添加值

1 个答案: