我想要一个代码来将变量行加起来,如果满足某些条件。 例如如果A12是数字并且B12是空的,则在单元格C12中插入一个公式以便求和C3:C11。 然后在C22和C30执行相同的操作。 我遇到的问题是不知道如何定义起始行。
Sub Test()
Dim y As Variant
Dim r As Variant
Dim StartRow As Variant
LastRow = Range("C" & Rows.Count).End(xlUp).Row
For y = 3 To 500
For r = 1 To LastRow
If InStr(1, Cells(r, 1), "Amount") Then
StartRow = r
If IsNumeric(Cells(y, 1)) And IsEmpty(Cells(y, 2)) Then
Cells(y, 3).Formula = "=SUM(C" & StartRow + 1 & ":C" & y - 1 & ")"
End If
End If
Next r
Next y
End Sub
你可以只用一个额外的列,而无需VBA ... –
@LS_dev由于这只是我的整个代码部分做到这一点,所以我想VBA代码来执行此,可以你请帮忙?^^ –