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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 14:12:17
用VBA根据条件自动填公式打个比方: 要求B列和C列的和 它们的和显示在D列,D列公式:=SUM(B1:C1),如果对应A列不为空则在 D列插入公式 这里用的是相对引用 因为在第二行时公式就变成=SUM(B2:C2)

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

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