با سلام و تشکر از دوستان
دوست عزیز از کد زیر استفاده کنید در این کد ابتدا یک کپی از ستون داده گرفته و سپس دادهای تکراری را حذف کرده و در نهایت توسط دو حلقه اقدام به جمع مقادیر هر کد میکنه
کد:
Dim sum
sum = 0
Columns("b:b").Select
Selection.Copy
Columns("D:D").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.RemoveDuplicates Columns:=1, Header:=xlNo
For Each a In Sheet26.Range("d1", Sheet26.Range("d1").End(xlDown))
For Each b In Sheet26.Range("b1", Sheet26.Range("b1").End(xlDown))
If a.Value = b.Value Then
sum = sum + b.Offset(0, 1).Value
End If
Next
a.Offset(0, 1).Value = sum
sum = 0
Next
علاقه مندی ها (Bookmarks)