em muốn lọc tự động khi các dòng có mã guống nhau thị chỉ giữ lại 1 nhưng số tiền thì cộng dồn lại
các bái giúp em vối (em gửi f kèm theo)
em cảm ơn nhiều
sheet Baocao E15em muốn lọc tự động khi các dòng có mã guống nhau thị chỉ giữ lại 1 nhưng số tiền thì cộng dồn lại
các bái giúp em vối (em gửi f kèm theo)
em cảm ơn nhiều
=SUMIFS('Nhập liệu'!E$8:E$28,'Nhập liệu'!$B$8:$B$28,$B15,'Nhập liệu'!$C$8:$C$28,$C15)
em muốn lọc tự động khi các dòng có mã guống nhau thị chỉ giữ lại 1 nhưng số tiền thì cộng dồn lại
các bái giúp em vối (em gửi f kèm theo)
em cảm ơn nhiều
Option Explicit
Public Sub GPE()
Dim Dic As Object, I As Long, J As Long, K As Long
Dim Tmp As String, Arr, dArr
Arr = Sheet1.Range("B8:O28").Value
ReDim dArr(1 To UBound(Arr), 1 To UBound(Arr, 2))
Set Dic = CreateObject("Scripting.Dictionary")
With Dic
For I = 1 To UBound(Arr)
Tmp = Arr(I, 1) & "#" & Arr(I, 2)
If Not .Exists(Tmp) Then
K = K + 1
.Add Tmp, K
For J = 1 To UBound(Arr, 2)
dArr(K, J) = Arr(I, J)
Next J
Else
For J = 4 To UBound(Arr, 2)
dArr(.Item(Tmp), J) = dArr(.Item(Tmp), J) + Arr(I, J)
Next J
End If
Next I
End With
With Sheet2
.Range("B15:O25").ClearContents
.Range("B15").Resize(K, UBound(Arr, 2)) = dArr
End With
Set Dic = Nothing
End Sub
HPKhuong ơi Cái này làm như nào bạn làm gúp vào file cho dễ hiểu lưu ý là lược bớt các mã trùng nhau gùm nha
Cảm ơn nhiều
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2