Lọc các dòng giống nhau & cập nhật lại cột các dòng đó (1 người xem)

[ntanta]

Chào các bạn,
Mình cần lọc qua 5 cột (MÔN THI, GV-Giang, NGAY L1, GIOL1, PHONGL1). Nếu các dòng mà có 5 cột này giống nhau thì sẽ cập nhật lại cột SL (số lượng) và xóa bớt 1 dòng đi

vidu: Trong file Excel đính kèm, có 2 dòng đầu là có 5 cột giống nhau, khi đó mình cần xóa bớt 1 dòng giống nhau này đi và cập nhật lại Cột SL dòng còn lại bằng công thức: Cột SLPM dòng 1 + SLPM dòng 2

Mong các bạn giúp đỡ, chân thành cảm ơn

 

[Ba Tê]

Chào các bạn,
Mình cần lọc qua 5 cột (MÔN THI, GV-Giang, NGAY L1, GIOL1, PHONGL1). Nếu các dòng mà có 5 cột này giống nhau thì sẽ cập nhật lại cột SL (số lượng) và xóa bớt 1 dòng đi

vidu: Trong file Excel đính kèm, có 2 dòng đầu là có 5 cột giống nhau, khi đó mình cần xóa bớt 1 dòng giống nhau này đi và cập nhật lại Cột SL dòng còn lại bằng công thức: Cột SLPM dòng 1 + SLPM dòng 2

Mong các bạn giúp đỡ, chân thành cảm ơn

Cái này dùng thử VBA xem sao, công thức chắc không chịu nỗi rồi.

 

[Good-Luck]

Cái này dùng thử VBA xem sao, công thức chắc không chịu nỗi rồi.

bài này có lẽ công thức cũng sơi được nếu giữ lại dự liệu góc, (nhưng theo thường lễ các bài báo cáo thường phải giữ lại dự liệu góc chứ) chưa nắm rõ ý đồ nên cũng chỉ nói vậy,
còn 1 điều lưu ý nữa các nhóm thực hiện phầm mền có chia ra ko, vì ở đây có nhóm 1 và nhóm 2 nhưng tác giả chi cho hiện thị nhóm 1, và nếu 3 dòng giống nhau thì như thế nào??
ví dụ : nhóm 1 có 23 pm, nhom 2 có 23 pm và nhóm 1 có 23 nữa thì sao ??? có phải xem nhóm 1 chỉ có 23 thôi, hoặc cộng cả 3 cái lại (đây là vấn đề mình đặt thêm)

 

[ntanta]

Cảm ơn 2 bạn đã góp ý. File GPE222.rar thật tuyệt đúng như ý mình, các bạn có thể giải thích từng dòng lệnh trong đó giúp mình không? Do mình mới làm quen

Public Sub GPE()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Tem As String, Dic As Object 'khai bao bien la mảng, số thực lớn, chuỗi, object thuộc tính
Set Dic = CreateObject("Scripting.Dictionary") 'sử dụng thư viện gi gi đó
Rng = Range([A5], [A65000].End(xlUp)).Resize(, 10).Value 'lấy từ dòng A5 -> cuối file .Resize(, 10).Value là gì nhỉ?
ReDim Arr(1 To UBound(Rng, 1), 1 To 10) 'Mình không hiểu lệnh này
For I = 1 To UBound(Rng, 1)
    Tem = Rng(I, 6) & Rng(I, 7) & Rng(I, 8) & Rng(I, 9) & Rng(I, 10) 'moi vong lap lay tu cot 6 -> 10
    If Not Dic.Exists(Tem) Then
        K = K + 1
        Dic.Add Tem, K
        For J = 1 To 10
            Arr(K, J) = Rng(I, J)
        Next J
    Else
        Arr(Dic.Item(Tem), 5) = Arr(Dic.Item(Tem), 5) + Rng(I, 5)
        Arr(Dic.Item(Tem), 2) = Arr(Dic.Item(Tem), 5)
    End If
Next I
[A5:J10000].ClearContents
[A5].Resize(K, 10).Value = Arr
Set Dic = Nothing
End Sub

Mình có mô tả ván đề trong file word và kết quả đã xử lý trong file excel, mình học kế toán mới đi làm được giao nhiệm vụ làm lịch thi số lượng dòng lên đén trên 2000 -> 5000 dòng. Mình hay làm bằng tay rất mệt mỏi, mong các bạn giúp đỡ

 

[Ba Tê]

Cảm ơn 2 bạn đã góp ý. File GPE222.rar thật tuyệt đúng như ý mình, các bạn có thể giải thích từng dòng lệnh trong đó giúp mình không? Do mình mới làm quen

Public Sub GPE()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Tem As String, Dic As Object 'khai bao bien la mảng, số thực lớn, chuỗi, object thuộc tính
Set Dic = CreateObject("Scripting.Dictionary") 'sử dụng thư viện gi gi đó
Rng = Range([A5], [A65000].End(xlUp)).Resize(, 10).Value 'lấy từ dòng A5 -> cuối file .Resize(, 10).Value là gì nhỉ?
ReDim Arr(1 To UBound(Rng, 1), 1 To 10) 'Mình không hiểu lệnh này
For I = 1 To UBound(Rng, 1)
    Tem = Rng(I, 6) & Rng(I, 7) & Rng(I, 8) & Rng(I, 9) & Rng(I, 10) 'moi vong lap lay tu cot 6 -> 10
    If Not Dic.Exists(Tem) Then
        K = K + 1
        Dic.Add Tem, K
        For J = 1 To 10
            Arr(K, J) = Rng(I, J)
        Next J
    Else
        Arr(Dic.Item(Tem), 5) = Arr(Dic.Item(Tem), 5) + Rng(I, 5)
        Arr(Dic.Item(Tem), 2) = Arr(Dic.Item(Tem), 5)
    End If
Next I
[A5:J10000].ClearContents
[A5].Resize(K, 10).Value = Arr
Set Dic = Nothing
End Sub

Mình có mô tả ván đề trong file word và kết quả đã xử lý trong file excel, mình học kế toán mới đi làm được giao nhiệm vụ làm lịch thi số lượng dòng lên đén trên 2000 -> 5000 dòng. Mình hay làm bằng tay rất mệt mỏi, mong các bạn giúp đỡ

Cái "dzụ dzì" mà ghép, cộng kỳ quá.
"Hết thuốc gồi". Híc!

 

[ntanta]

Hì hì, cảm ơn bạn Ba Tê rất nhiều, bạn nhắn mình thông tin để mình gửi quà uống cafe
Cái này giúp ích công việc mình hạn chế sai sót rất nhiều
Cảm ơn bạn đã giúp đỡ

 

[Ba Tê]

Hì hì, cảm ơn bạn Ba Tê rất nhiều, bạn nhắn mình thông tin để mình gửi quà uống cafe
Cái này giúp ích công việc mình hạn chế sai sót rất nhiều
Cảm ơn bạn đã giúp đỡ

Đừng "Vỡn".
GPE là cộng đồng trao đổi kiến thức, giúp nhau không vụ lợi.
Không cần phải có quà hạy cà phê đâu.
Ấn cái nút "Cảm ơn" là lịch sự rồi.
-------------------------------------
Để dành đó mai này "lỡ" có gặp nhau thì tính sau.
Ẹc...

 

[ntanta]

OK, ghi nhận vấn đề này
Chúc bạn sức khỏe, cộng đồng ngày càng phát triển