使用VBA根据特定单元格的值在一行中添加特定单元格

Question

我正在尝试基于期间对行内的单元格进行求和。因此，例如在第四期我会选择一些细胞B2，C2，D2，E2和F2。我需要这个“如果这然后总结这个”功能运行所有行数据输入。由于我可以有超过200,000行，使用Excel公式不起作用。求和的输出将是O列中的相应单元格。下面是我的代码的缩写版本（我没有想到我需要发布所有12个时期）。

当我运行代码时，我得到'范围'object'_Global'失败，它突出了我指定鸡的范围。如果有人知道更清洁的方式来做到这一点，我会非常感激。

Sub AddRowsBySelectedPeriodMacro() 
    Sheets("Blah").Select 
    Dim LastRow As Long, i As Long, Period As Long, Chicken As Long 
    LastRow = ActiveSheet.UsedRange.Rows.Count 
    Period = Range("P2") 

    For i = 2 To LastRow 
     If Period = "1" Then 
      Chicken = Cells(i, 2).Value + Cells(i, 3).Value 

     ElseIf Period = "2" Then 
      Chicken = Cells(i, 2).Value + Cells(i, 3).Value + Cells(i, 4).Value 

     Else: Period = "12" 
      Chicken = Cells(i, 2).Value + Cells(i, 3).Value + Cells(i, 4).Value + Cells(i, 5).Value + Cells(i, 6).Value + Cells(i, 7).Value + Cells(i, 8).Value + Cells(i, 9).Value + Cells(i, 10).Value + Cells(i, 11).Value + Cells(i, 12).Value + Cells(i, 13).Value + Cells(i, 14).Value 

     End If 

     Range("02:O").Value = Chicken 

    Next i 

End Sub 

Answer 1

使用Excel公式不起作用

如果我正确读取您的方案，是它。

如果P2持有期间，任何数量，1-12个，并且公式： =SUM(OFFSET(B4,0,0,1,$P$2+1))是P4，与B4数据：N4，你会得到你想要的结果。

然后，您可以向下拖动单元格。

要直接说你的问题，一段代码Range("O2:O").Value = Chicken需要编写Range("O" & i).Value = Chicken

Answer 2

你的代码的简化版本是：

Sub AddRowsBySelectedPeriodMacro() 
Sheets("Blah").Select 
    Dim LastRow As Long, i As Long, Period As Long, Chicken As Long 
    Dim m As Integer 
    LastRow = ActiveSheet.UsedRange.Rows.Count 
    Period = Range("P2") 

    For i = 2 To LastRow 
     Chicken = 0 
     For m = 1 to Period 
      Chicken = Chicken + Cells(i, m + 1).Value 
     Next m 

     Range("O" & i).Value = Chicken 

Next i 

End Sub 

Answer 3

谁需要一个鸡？

您要求和的范围在第i行从第2列开始到第2列+期间。我们可以像这样定义这个范围Range.Cells(i, 2), Cells(i, 2 + Period))并且总和范围如WorksheetFunction.Sum(Range(Cells(i, 2), Cells(i, 2 + Period)))。

Sub AddRowsBySelectedPeriodMacro() 

    Dim LastRow As Long, i As Long, Period As Long 
    With Sheets("Blah") 
     LastRow = .UsedRange.Rows.Count 
     Period = .Range("P2") 

     For i = 2 To LastRow 

      .Range("O" & i).Value = WorksheetFunction.Sum(.Range(.Cells(i, 2), .Cells(i, 2 + Period))) 

     Next 

    End With 
End Sub