VBA萨姆了基于条件

在行值我需要根据条件写VBA代码： -if订单有在列d相同的值，F栏，柱P和列P =单位再总结值列Q;如果柱P =量再总结值列S.VBA萨姆了基于条件

Dim lastrow1 As Long 
Dim startrow As Long 
Dim Cumulative As Variant 
Dim y As Long 

With Wb2.Worksheets.Item(1) 
    lastrow1 = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
    Cumulative = 0 
    startrow = 4 'Row where your data starts + 1, so row 3 + 1 in this case 

    For y = startrow To lastrow1 
     If Range("P" & y - 1).Value = "Unit" Then 
      Cumulative = Cumulative + Range("Q" & y - 1).Value 
      If Range("F" & y).Value = Range("F" & y - 1).Value And Range("D" & y).Value = Range("D" & y - 1).Value And Range("P" & y).Value = Range("P" & y - 1).Value Then 
       Range("Q" & y - 1 & .Rows.Count).End(xlUp).Value = Cumulative 
       Cumulative = 0 
      End If 
     ElseIf Range("P" & y - 1).Value = "Amount" Then 
       Cumulative = Cumulative + Range("S" & y - 1).Value 
      If Range("F" & y).Value = Range("F" & y - 1).Value And Range("D" & y).Value = Range("D" & y - 1).Value And Range("P" & y).Value = Range("P" & y - 1).Value Then 
       Range("S" & y - 1 & .Rows.Count).End(xlUp).Value = Cumulative 
       Cumulative = 0 
      End If 
     End If 
    Next y 

End With

但代码不工作，我在线路Range("S" & y - 1 & .Rows.Count).End(xlUp).Value = Cumulative得到的范围内的对象错误1004。

哪里是我的代码的问题？

来源

2016-08-23 shinpencil

什么是你想达到什么目的？你在寻找什么样的范围？ –

检查'Range'参数时，它失败 –

注意，所有这一切都可以用公式来完成，而不需要VBA的。 – trincot

这是错误的Range("S" & y - 1 & .Rows.Count).End(xlUp).Value = Cumulative

它评估为类似例如S9:1048576，这将引发错误1004

将其更改为：

Range("S" & y - 1 & ":S" & .Rows.Count).End(xlUp).Value = Cumulative

来源

2016-08-23 13:30:48 cyboashu

最后使用排谢谢它的工作，但结果是假的 – shinpencil

VBA萨姆了基于条件

回答

相关问题