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

Question

我正在设计一个按钮，它可以在C列自动求和值A列= B列 像图片： PIC: 到目前为止，我只能将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，所以数字可以连续？ （点击BOTTON后）     问题2）是否可以自动对E列中的数字求和而不是显示每个？

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

Answer 1

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

2）是的，你可以这样做。只需声明一个或两个Integer变量，并使用它来执行值的运行计数。