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

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。

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