用VBA根据条件自动填公式打个比方：要求B列和C列的和它们的和显示在D列,D列公式：=SUM(B1:C1),如果对应A列不为空则在D列插入公式这里用的是相对引用因为在第二行时公式就变成=SUM(B2:C2)

Question

用VBA根据条件自动填公式
打个比方： 要求B列和C列的和 它们的和显示在D列,D列公式：=SUM(B1:C1),如果对应A列不为空则在 D列插入公式 这里用的是相对引用 因为在第二行时公式就变成=SUM(B2:C2) 怎么实现

Answer 1

'比如在sheet1中有如你所述的原表
'则打开VBE的sheet1代码编辑窗口,将如下代码复制进去
Private Sub 填充公式()
Dim i As Integer
For i = 1 To 10000 Step 1
If Sheet1.Cells(i, 1) "" And Sheet1.Cells(i, 4) "=SUM(B" & i & ":C" & i & ")" Then
Sheet1.Cells(i, 4) = "=SUM(B" & i & ":C" & i & ")"
End If
Next i
End Sub
'运行即可