คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
ช่วยอธิบายเพิ่มเติมว่าต้องการจะทำอะไร ปัญหาคืออะไร ต้องการผลลัพธ์เป็นอย่างไร ยกตัวอย่างคำตอบที่ถูกต้องมาอีกรอบจะได้สะดวกต่อการทำความเข้าใจครับ ตัวอย่าง 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