ببینید فرض کنید ستون a شامل یکسری کد باشه و ستون b هم یکسری عدد
حالا اگه توی ستون a یه کد دوبار تکرار شده باشه یعنی مثلا یه مشتری دو تا پرداخت داشته باشه
چطوری میشه اعداد متناظر اون رو توی ستون b با هم جمع کرد و کد تکراری را حذف کرد
با سلام
کد زیر رو امتحان کنید براساس تکراری های ستون a مجموع ستون c بدست آمده و تکراری ها حذف میشود.
کد:
Sub test()
Dim lr, i, sval As Integer
lr = Sheet4.Cells(Sheet4.Rows.Count, "A").End(xlUp).Row
For i = 2 To lr
sval = Application.SumIf(Range("A2:A" & lr), Range("a" & i), Range("C2:C" & lr))
Range("D" & i) = sval
Next i
On Error Resume Next
Columns("A:D").Select
ActiveSheet.Range("$A$1:$D$" & lr).RemoveDuplicates Columns:=Array(1), _
Header:=xlNo
Range("a1").Select
End Sub
علاقه مندی ها (Bookmarks)