Cám ơn anh nhiều lắm, nhưng hình như số liệu tổng hợp sai hay sao ý ạ. E gửi lại file mẫu, a giúp e tổng hợp lại như e làm ở sheet tổng hợp nhé.
Code này cũng tương đương code của bài số 3. Thêm cho bạn cái phần ghi chú. Cứ copy code vào 1 module rồi bầm nút thôi. Lưu ý tên sheet Tong Hop phải đúng như file bạn đã gởi
Sub tonghop()
Dim sh As Worksheet
Sheets("Tong Hop").[A3:F10000].ClearContents
For Each sh In Worksheets
If sh.Name <> "Tong Hop" Then
sh.Range(sh.[A18], sh.[A18].End(4)).Resize(, 5).Copy
With Sheets("Tong Hop").[A65536].End(3)
.Offset(1).PasteSpecial 1
.Offset(1, 5) = sh.Name
End With
End If
Next
End SubA ơi cột ghi chú không có dòng kẻ từng ô anh ạ.
A ơi làm ơn giúp e nốt được không. E cám ơn
Sub thongke()
Dim data(), i, kq(1 To 10000, 1 To 3), k, tam
With Sheets("Tong Hop")
data = .Range(.[A3], .[A65536].End(3)).Resize(, 5).Value
With CreateObject("scripting.dictionary")
For i = 1 To UBound(data)
If data(i, 3) <> "" Or data(i, 5) <> "" Then
If Not .exists(data(i, 1)) Then
k = k + 1
.Add data(i, 1), k
kq(k, 1) = data(i, 1)
If data(i, 3) > 0 Then kq(k, 2) = data(i, 3)
If data(i, 5) > 0 Then kq(k, 3) = data(i, 5)
Else
If data(i, 3) > 0 Then
kq(.Item(data(i, 1)), 2) = kq(.Item(data(i, 1)), 2) + data(i, 3)
End If
If data(i, 5) > 0 Then
kq(.Item(data(i, 1)), 3) = kq(.Item(data(i, 1)), 3) + data(i, 5)
End If
End If
End If
Next
End With
.[H3].Resize(k, 3) = kq
.[H3].Resize(k, 3).Borders.Value = 1
.Range(.[H3], .[H65536].End(3)).Resize(, 3).Sort .[I2]
End With
End SubBảo sao mà lúc e copy code sang bảng excel khác, lúc tổng hợp dữ liệu nó copy luôn cả khoảng trăng vào rồi phần tổng cộng nó cũng copy luôn. Còn copy thiếu dữ liệu nữa. Cơ mà e thay cái mới của anh vào thì không tổng hợp được luôn. Nó báo lỗi luôn
Đây anh ạ. A giúp e với nhé. Em cám ơn nhiều
Tuyệt vời quá anh ạ. Không biết nói sao nữa cám ơn anh nhiều nhiều lắm
Nhưng mà anh ơi , nó lại cứ phân biệt chữ hoa chữ thường anh ạ.( ở phần bảng dư nợ tổng hợp anh ạ) A giúp e gộp chữ hoa với chữ thường lại với nhau với.
Ông bà mình nói không sai mà. Gieo gì gặt đó thôi.
Vâng không có gì, e sẽ cố tự làm. Cám ơn anh ạ.
Làm phiền anh quá, cột tổng hợp phần "nợ" vẫn chưa trừ đi phần "có" anh ạ. Anh giúp e cái này được không ạ.
