Mong các bác giúp em TÌm kiếm và đếm số lượng với

[nguyendinhthang]

Em có một bảng tính như sau,rất mong các bác giúp đỡ em
Làm cách nào đó mà có thể vừa lọc được ra các giá trị trùng nhau vừa đếm số lượng của nó đã xuất hiện ở cột bên cạnh.
Em xin chân thành cảm ơn

 

[ndu96081631]

Em có một bảng tính như sau,rất mong các bác giúp đỡ em
Làm cách nào đó mà có thể vừa lọc được ra các giá trị trùng nhau vừa đếm số lượng của nó đã xuất hiện ở cột bên cạnh.
Em xin chân thành cảm ơn

Cách đơn giản nhất là:
- Gõ số 1 vào các cell C4:C88
- Đặt con trỏ chuột tại D4, vào menu Data\Consolidate và làm giống hình này:

- Mục Function chọn Count, mục Use labels in chọn Left column và Reference là vùng dử liệu B4:C88
- OK 1 nhát xem thử

 

[huuthang_bd]

Em có một bảng tính như sau,rất mong các bác giúp đỡ em
Làm cách nào đó mà có thể vừa lọc được ra các giá trị trùng nhau vừa đếm số lượng của nó đã xuất hiện ở cột bên cạnh.
Em xin chân thành cảm ơn

Hoặc dùng công thức như trong file này. Ưu điểm của cách này là bạn chỉ cần làm 1 lần. Sau này có nhập thêm dữ liệu thì kết quả sẽ tự thay đổi.

 

[nm1000kg]

Bạn co thể làm theo cách này

 

[nguyendinhthang]

Rất cảm ơn các bác đã giúp đỡ em.
OK rồi các bác ạ

 

[xuccam]

các bác ơi, cái này nếu số lượng nó là 20.000 dòng thì nó chạy có được không

 

[Cao Mạnh Sơn]

các bác ơi, cái này nếu số lượng nó là 20.000 dòng thì nó chạy có được không

hoàn toàn có thể được, bạn nên dùng Pivot Table. Tôi thấy hay hơn

 

[ChanhTQ@]

Ngoài lề 1 chút: thử viết 01 UDF & được, như sau

Option Explicit:        Option Base 1
[B]Function BienSoXe(LookUpRange As Range)[/B]
 Dim RecNum As Integer
 Dim Clls As Range, StrC As String
 Dim VTr As Integer, Dem As Integer, TTu As Integer
 
 RecNum = LookUpRange.Cells.Count:           StrC = "GPE.COM "
 ReDim MDL(RecNum, 2)
 For Each Clls In LookUpRange
   VTr = InStr(StrC, Clls.Value)
   If VTr = 0 Then
      TTu = TTu + 1:                         StrC = StrC & Clls.Value
      MDL(TTu, 1) = Clls.Value:              MDL(TTu, 2) = 1
   Else
      MDL(VTr \ 8, 2) = MDL(VTr \ 8, 2) + 1
   End If
 Next Clls
 BienSoXe = MDL()
[B]End Function[/B]

 

[ndu96081631]

các bác ơi, cái này nếu số lượng nó là 20.000 dòng thì nó chạy có được không

Chạy được... nhưng nếu dùng công thức thì e rằng bạn phải đi uống 1 chầu cafe xong quay lại nó vẫn chưa tính xong!
Ẹc... Ẹc...
Với cách dùng Consolidate của tôi giới thiệu, 60.000 dòng dử liệu chạy chưa đến 10 giây!
Còn nếu dùng PivotTable thì còn nhanh hơn nữa ---> Nhanh đến chóng mặt
thử để thấy công cụ có sẳn luôn mạnh phi thường!