การรวมค่าที่ซ้กัน

[diamondbom]

ผมรบกวนขอสอบถามเกี่ยวกับการรวมค่าหน่อยครับ
จริงๆ แล้วโปรแกรมที่ผมออกแบบไว้ควรจะมี 4 ค่า
แต่ผมยังทำไม่ถูกต้อง ขอคำแนะนำด้วยครับ
ขอบคุณครับ

[snasui]

ช่วยอธิบายเพิ่มเติมว่าต้องการจะทำอะไร ปัญหาคืออะไร ต้องการผลลัพธ์เป็นอย่างไร ยกตัวอย่างคำตอบที่ถูกต้องมาอีกรอบจะได้สะดวกต่อการทำความเข้าใจครับ

[diamondbom]

เป็นการรวมค่าที่ซ้ำกันครับ เช่น ผลที่ต้องการคือ

3 เกิดจาก 1+1+1
6 เกิดจาก 2+2+2
9 เกิดจาก 3+3+3
12 เกิดจาก 4+4+4

ขอบคุณครับ

[snasui]

ตัวอย่าง Code ตามด้านล่าง โดยลบค่า C2:C5 ทิ้งไปก่อนแล้วค่อยทดสอบเพื่อดูผลลัพธ์ครับ

Code: Select all

Private Sub CommandButton1_Click()
    Dim r As Range, rAll As Range
    With ActiveSheet
        Set rAll = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        For Each r In rAll
            If r.Value <> r.Offset(-1, 0).Value Then
                .Range("c" & .Rows.Count).End(xlUp).Offset(1, 0) = _
                    Application.SumIf(rAll, r.Value)
            End If
        Next r
    End With
End Sub

[diamondbom]

ขอบคุณครับ