excel VBA：如何跳过两个包含值的单元格之间的空白单元格？

Question

我正在设计一个按钮，该按钮可以自动将C列的值累加到A列= B列，如图所示： 图片：我只能将C列中的值（即A列中的单词= B列）复制到E列，因此远。

编码

Private Sub CommandButton2_Click()

Dim i As Integer, q As Integer

q = 2
For i = 3 To 100


Range("E" & q).Value = Range("b" & 3).Value

If Range("B" & i).Value = "A-RDL1" And Range("c" & i).Value = "OPEN" Then

Range("E" & i).Value = Range("d" & i).Value


End If
Next i


End Sub

问题1）如何跳过空格E9至E17，以便数字可以连续？ （单击按钮后）问题2）是否可以自动对E列中的数字求和而不是显示每个数字？

非常感谢，抱歉我的英语不好。

Answer 1

1）是的，您可以跳过这些内容，只需对单元格值进行检查并与空字符串进行比较： Range("").Value2 = "" 。 我个人更喜欢这样做，以避免误报： Len(Trim(Range("").Value2)) = 0 。

2）是的，您可以这样做。 只需声明一个或两个Integer变量，然后使用该变量来对您的值进行连续计数。