用VBA根据条件自动填公式打个比方: 要求B列和C列的和 它们的和显示在D列,D列公式:=SUM(B1:C1),如果对应A列不为空则在 D列插入公式 这里用的是相对引用 因为在第二行时公式就变成=SUM(B2:C2)
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/11 19:42:06
![用VBA根据条件自动填公式打个比方: 要求B列和C列的和 它们的和显示在D列,D列公式:=SUM(B1:C1),如果对应A列不为空则在 D列插入公式 这里用的是相对引用 因为在第二行时公式就变成=SUM(B2:C2)](/uploads/image/z/13799594-2-4.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%E6%89%93%E4%B8%AA%E6%AF%94%E6%96%B9%EF%BC%9A+%E8%A6%81%E6%B1%82B%E5%88%97%E5%92%8CC%E5%88%97%E7%9A%84%E5%92%8C+%E5%AE%83%E4%BB%AC%E7%9A%84%E5%92%8C%E6%98%BE%E7%A4%BA%E5%9C%A8D%E5%88%97%2CD%E5%88%97%E5%85%AC%E5%BC%8F%EF%BC%9A%3DSUM%28B1%3AC1%29%2C%E5%A6%82%E6%9E%9C%E5%AF%B9%E5%BA%94A%E5%88%97%E4%B8%8D%E4%B8%BA%E7%A9%BA%E5%88%99%E5%9C%A8+D%E5%88%97%E6%8F%92%E5%85%A5%E5%85%AC%E5%BC%8F+%E8%BF%99%E9%87%8C%E7%94%A8%E7%9A%84%E6%98%AF%E7%9B%B8%E5%AF%B9%E5%BC%95%E7%94%A8+%E5%9B%A0%E4%B8%BA%E5%9C%A8%E7%AC%AC%E4%BA%8C%E8%A1%8C%E6%97%B6%E5%85%AC%E5%BC%8F%E5%B0%B1%E5%8F%98%E6%88%90%3DSUM%28B2%3AC2%29)
xopK&$D)K ع&G6:'6pB6DRJL?F]{ן]rkݵd'2`;tU;G`c;Oe{IxX㞼 pܙ5s[eGE|O7 Pu&:N(Tfk~%nX$hc~ayomV*x?O|F@\М]>:gy+YӠt]S dM>yHe4呒wvr䌃; ޢҚ16!)+1 <-t}@@ɿ̰ [Jf^g{ivTov@+_J|v=\Ο%
用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
'运行即可