2セルの基準に基づくループSUM

Question

Excel VBAのヘルプが必要です。

私はデータW、X、Yと3列あります

最終結果は同じ値を持つすべてのXとYを合計し、W列の値を変更すると、このような何かを得ることです：

を

Answer 1

は、それが動作するようになった：D

Sub Sort01() 

    lRow = 2 
    Do While (Cells(lRow, 23) <> "") 

    ItemRow1 = Cells(lRow, "Y") 
    ItemRow2 = Cells(lRow + 1, "Y") 

    lengthRow1 = Cells(lRow, "X") 
    lengthRow2 = Cells(lRow + 1, "X") 

    If ((ItemRow1 = ItemRow2) And (lengthRow1 = lengthRow2)) Then 
     Cells(lRow, "W") = Cells(lRow, "W") + Cells(lRow + 1, "W") 
     Rows(lRow + 1).Delete 

    Else 
     lRow = lRow + 1 
    End If 
Loop 
End sub