Fatal编程技术网
  • excel/
  • Excel 循环行并添加值

Excel 循环行并添加值

excel for-loop vba

Excel 循环行并添加值,excel,for-loop,sum,vba,Excel,For Loop,Sum,Vba,这是我的密码 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）中

这是我的密码

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

希望这是清楚的 获取和值应为

的空白单元格这是正确的：

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
用于。。。下一步不正确。它必须是
到30
，而不是
到x=30

信息这里发生了什么：如果你一步一步地浏览你的代码，你会注意到你的
中的所有内容都是为了。。。Next
永远不会执行。这是因为
For
中的x=30将
x
设置为
30
的值，这是
For
的
结束，因此
For
永远不会执行


步骤1
不是必需的，它是
1
默认情况下，您可以删除或保留它，但不是必需的


正如Darren Bartrup Cook所提到的，它必须是
单元格
而不是
单元格
您应该在
单元格
上获得
子或未定义的函数。使用
单元格
，在模块顶部是否有
选项Explicit
，因为您没有声明变量。我声明了addRange1和myCount2，只是没有将其包含在post@DarrenBartrup-Cook此代码段位于sub btw中