用VBA根据条件自动填公式
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/06 12:51:59
用VBA根据条件自动填公式
打个比方: 要求B列和C列的和 它们的和显示在D列,D列公式:=SUM(B1:C1),如果对应A列不为空则在 D列插入公式 这里用的是相对引用 因为在第二行时公式就变成=SUM(B2:C2) 怎么实现
打个比方: 要求B列和C列的和 它们的和显示在D列,D列公式:=SUM(B1:C1),如果对应A列不为空则在 D列插入公式 这里用的是相对引用 因为在第二行时公式就变成=SUM(B2:C2) 怎么实现
![用VBA根据条件自动填公式](/uploads/image/z/19689182-62-2.jpg?t=%E7%94%A8VBA%E6%A0%B9%E6%8D%AE%E6%9D%A1%E4%BB%B6%E8%87%AA%E5%8A%A8%E5%A1%AB%E5%85%AC%E5%BC%8F)
'比如在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
'运行即可
'则打开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
'运行即可