用VBA根据条件自动填公式打个比方： 要求B列和C列的和 它们的和显示在D列,D列公式：=SUM(B1:C1),如果对应
用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) 怎么实现
赞 catharinez 幼苗
共回答了28个问题采纳率：82.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
'运行即可
'则打开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
'运行即可
1年前
10
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗