VBA计算基于一列答案添加列

到目前为止，我有以下代码从另一列中减去一列，但是需要得到这个结果，如果D是负数，那么F = D + F否则E = E + D

  Sub PopCol() Range("D3:D19").Formula = "=RC[-1]-RC[-2]" 'D=CB 

我迷路了！ 一直在尝试不同的格式在这个范围，并没有运气，帮助！

谢谢！

Answer 1

这是你正在尝试？

 Sub PopCol() Dim rng As Range, aCell As Range Set rng = Range("D3:D19") rng.Formula = "=RC[-1]-RC[-2]" For Each aCell In rng Select Case aCell.Value Case Is < 0 '<~~ If value in D is negative '~~> F = F + D aCell.Offset(, 2).Value = aCell.Offset(, 2).Value + aCell.Value Case Else '~~> E = E + D aCell.Offset(, 1).Value = aCell.Offset(, 1).Value + aCell.Value End Select Next End Sub 

Answer 2

尝试下面的代码：

  Sub PopCol() For i = 3 To 19 Range("D" & i) = CLng(Range("C" & i) - Range("B" & i)) If (Range("D" & i) < 0) Then Range("F" & i) = Range("D" & i) + Range("F" & i) Else Range("E" & i) = Range("E" & i) + Range("D" & i) End If Next End Sub