Lọc dữ liệu trùng và cộng lại diện tích những dữ liệu trùng (1 người xem)

[cheng1511]

Em có 2 cột, khoảng 5000 hàng. Cột 1 có những giá trị trùng nhau. Cột 2 ghi diện tích của cột 1. Em muốn lọc rồi cộng lại những giá trị trùng đó. Xuất kết quả sang cột khác rồi xóa những cái trùng ở cột 1 2 thì mừng quá . Các bác giúp em với
vd:
4 45
5 55
4 44
3 77
2 88
4 33
3 66

 

[huyhoang1768]

Dùng pivotetable là nhanh nhất

 

[Ba Tê]

Em có 2 cột, khoảng 5000 hàng. Cột 1 có những giá trị trùng nhau. Cột 2 ghi diện tích của cột 1. Em muốn lọc rồi cộng lại những giá trị trùng đó. Xuất kết quả sang cột khác rồi xóa những cái trùng ở cột 1 2 thì mừng quá . Các bác giúp em với
vd:
4 45
5 55
4 44
3 77
2 88
4 33
3 66

Dùng Remove Duplicates để lọc duy nhất, Dùng SUMIF() để tính tổng.
5000 dòng chắc không đến 1 phút.

 

[Lê Duy Thương]

Em có 2 cột, khoảng 5000 hàng. Cột 1 có những giá trị trùng nhau. Cột 2 ghi diện tích của cột 1. Em muốn lọc rồi cộng lại những giá trị trùng đó. Xuất kết quả sang cột khác rồi xóa những cái trùng ở cột 1 2 thì mừng quá . Các bác giúp em với
vd:
4 45
5 55
4 44
3 77
2 88
4 33
3 66

dùng consolidate chưa đến 1 phút

 

[be_09]

Em có 2 cột, khoảng 5000 hàng. Cột 1 có những giá trị trùng nhau. Cột 2 ghi diện tích của cột 1. Em muốn lọc rồi cộng lại những giá trị trùng đó. Xuất kết quả sang cột khác rồi xóa những cái trùng ở cột 1 2 thì mừng quá . Các bác giúp em với
vd:
4 45
5 55
4 44
3 77
2 88
4 33
3 66

Nói thách thêm 1 tí, nếu có File với 30.000 dòng chỉ với 30 giây, chứ như Ba tê và Lê Duy Thương nói thách đến 1 phút e rằng là nhiều quá.

 

[Ba Tê]

Nói thách thêm 1 tí, nếu có File với 30.000 dòng chỉ với 30 giây, chứ như Ba tê và Lê Duy Thương nói thách đến 1 phút e rằng là nhiều quá.

30 giây là "hơi nói thách" rồi.
Nếu viết code 30.000 dòng chạy chưa kịp chớp mắt là xong.
Hổng biết bao nhiêu giây. Híc! Ẹc....

 

[be_09]

30 giây là "hơi nói thách" rồi.
Nếu viết code 30.000 dòng chạy chưa kịp chớp mắt là xong.
Hổng biết bao nhiêu giây. Híc! Ẹc....

Lâu lắm rồi không có dịp về quê nên không có dịp ghé qua An Giang thăm Ba Tê, nên hôm nay có dịp ghẹo Ba Tê tí xíu cho đỡ buồn, còn Lê Duy Thương thì gặp Coffee hàng ngày.

 

[Quang_Hải]

Lê Duy Thương nói đúng à nghen. Các thao tác chọn lệnh, chọn vùng dữ liệu thì gom gom lại cũng cả phút nha.

 

[cheng1511]

em trình bày chưa rõ, hic. Ý em là nếu trùng thì chỉ cộng những cái trùng thôi. ko fai là cộng tổng. Với cả có những trường hợp trùng 4 5 lần nữa. ví dụ :
2 4
2 4
2 4
3 5
3 5
thì cộng lại 4+ 4+ 4, và 5 + 5 riêng

 

[Ba Tê]

em trình bày chưa rõ, hic. Ý em là nếu trùng thì chỉ cộng những cái trùng thôi. ko fai là cộng tổng. Với cả có những trường hợp trùng 4 5 lần nữa. ví dụ :
2 4
2 4
2 4
3 5
3 5
thì cộng lại 4+ 4+ 4, và 5 + 5 riêng

Bạn đưa file có khoảng 30.000 dòng đi. Nói suông hoài chẳng biết dữ liệu mắt mũi nó ra sao.

 

[cheng1511]

ý em là có những thửa trùng nhau, thì gộp nó vào làm 1 thôi. cột 2 là diện tích cộng nó lại. cột 1 giống nhau thì xóa đi

 

[Ba Tê]

ý em là có những thửa trùng nhau, thì gộp nó vào làm 1 thôi. cột 2 là diện tích cộng nó lại. cột 1 giống nhau thì xóa đi

Tạm thời lấy kết quả qua cột khác nhé.
Nếu muốn đè lên cột cũ thì khó kiểm tra kết quả.
Enable Macros, Click vào hình Cốc cốc 1 phát, chưa kịp chớp mắt là xong.

 

[cheng1511]

bác pro quá.hàm ấy phức tạp ko bác dạy em với. với làm cái hình cốc cốc như nào vậy

 

[Ba Tê]

bác pro quá.hàm ấy phức tạp ko bác dạy em với. với làm cái hình cốc cốc như nào vậy

Nó là "con đường đau khổ".
Muốn "khổ" thì xem từ đây:
http://www.giaiphapexcel.com/forum/...cel-cho-người-mới-bắt-đầu&p=558203#post558203
Làm sao dạy được.

 

[cheng1511]

em mở đc cái chỗ code rồi. em hiểu rồi. giờ mới biết excel viêt được code như thế. trước em cũng học sơ qua mâý hàm cơ bản rồi. mà sao chỗ reply này cứ bị nhảy về đầu dòng thế nhỉ

 

[Lê Duy Thương]

Lê Duy Thương nói đúng à nghen. Các thao tác chọn lệnh, chọn vùng dữ liệu thì gom gom lại cũng cả phút nha.

bởi vì tôi đã thử rồi 12000 dòng 2 cột hết 57s . thao tác bằng tay. thì nói cho 1 phút cho chắc. code thì chưa thử . code của Bate máy tôi test hết 13s

 

[Quang_Hải]

Tạm thời lấy kết quả qua cột khác nhé.
Nếu muốn đè lên cột cũ thì khó kiểm tra kết quả.
Enable Macros, Click vào hình Cốc cốc 1 phát, chưa kịp chớp mắt là xong.

Bài này em viết thì kinh lắm, khỏi kiểm tra có tồn tại hay không. Cứ phang tới. Đúng là ngày càng liều rồi.

Sub QuangHai()
Dim Arr(), i As Long
Arr = Range([A4], [B65536].End(xlUp)).Value
With CreateObject("Scripting.Dictionary")
   For i = 1 To UBound(Arr, 1)
      .Item(Arr(i, 1)) = .Item(Arr(i, 1)) + Arr(i, 2)
   Next
   [I4].Resize(.Count) = Application.Transpose(.keys)
   [J4].Resize(.Count) = Application.Transpose(.Items)
End With
End Sub

 

[Lê Duy Thương]

Bài này em viết thì kinh lắm, khỏi kiểm tra có tồn tại hay không. Cứ phang tới. Đúng là ngày càng liều rồi.

Sub QuangHai()
Dim Arr(), i As Long
Arr = Range([A4], [B65536].End(xlUp)).Value
With CreateObject("Scripting.Dictionary")
   For i = 1 To UBound(Arr, 1)
      .Item(Arr(i, 1)) = .Item(Arr(i, 1)) + Arr(i, 2)
   Next
   [I4].Resize(.Count) = Application.Transpose(.keys)
   [J4].Resize(.Count) = Application.Transpose(.Items)
End With
End Sub

cái này là hôm ở nhà anh bé anh hải giới thiệu đây chăng ??. thế mới biết offline tốt thật.

 

[Quang_Hải]

cái này là hôm ở nhà anh bé anh hải giới thiệu đây chăng ??. thế mới biết offline tốt thật.

Uhm bữa offline có nói tới những cách kỳ cục của Dic ít ai viết. Nếu so về tốc độ thì viết thế này có khả năng nhanh hơn chút nữa

Sub QuangHai()
Dim Arr(), i As Long, Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
Arr = Range([A4], [B65536].End(xlUp)).Value
For i = 1 To UBound(Arr, 1)
   Dic(Arr(i, 1)) = Dic.Item(Arr(i, 1)) + Arr(i, 2)
Next
[K4].Resize(Dic.Count) = Application.Transpose(Dic.keys)
[L4].Resize(Dic.Count) = Application.Transpose(Dic.Items)
End Sub

Còn nếu ngắn gọn thì chỉ cần thế này, có điều chạy hơi chậm chút.

Sub Consolidator()
[I3].Consolidate "R3C1:R65536C2", 9, 1, 1
End Sub