Lọc dữ liệu trong ô có nhiều đối tượng (1 người xem)

[ng_linh]

Nhờ các bạn chỉ giúp mình với. Mình có sheet 1 bao gồm 2 cột, trong đó cột B có nhiều đối tượng như: bia, nước giải khát, v.v..
Mình muốn hỏi là làm sao mình có thể lọc được riêng từng đối tượng "Bia", "Nước giải khát",v.v (trong cột B) được cột A lựa chọn bao nhiêu lượt?
Ví dụ: "Bia" được "AT" chọn: ... lượt?
"Bia" được "MK" chọn: ... lượt?
"Nước giải khát" được "MK" chọn: ... lượt?

 

[snow25]

Nhờ các bạn chỉ giúp mình với. Mình có sheet 1 bao gồm 2 cột, trong đó cột B có nhiều đối tượng như: bia, nước giải khát, v.v..
Mình muốn hỏi là làm sao mình có thể lọc được riêng từng đối tượng "Bia", "Nước giải khát",v.v (trong cột B) được cột A lựa chọn bao nhiêu lượt?
Ví dụ: "Bia" được "AT" chọn: ... lượt?
"Bia" được "MK" chọn: ... lượt?
"Nước giải khát" được "MK" chọn: ... lượt?

dữ liệu của bạn phân tách nhau bằng dấu phẩy.bạn nên dùng hàm tách nó ra rồi dùng hàm đếm theo điều kiện là được.tại bạn đưa ví dụ ko có ví dụ loại đấy được chọn bao nhiêu nên mình cũng chỉ nghĩ ra vậy thôi.

 

[ng_linh]

dữ liệu của bạn phân tách nhau bằng dấu phẩy.bạn nên dùng hàm tách nó ra rồi dùng hàm đếm theo điều kiện là được.tại bạn đưa ví dụ ko có ví dụ loại đấy được chọn bao nhiêu nên mình cũng chỉ nghĩ ra vậy thôi.

Bạn có thể chỉ giúp mình hàm tách ra là hàn nào dc ko? Vì dữ liệu đã được phân tách bằng dấu phấy rồi

 

[excel_lv1.5]

Nhờ các bạn chỉ giúp mình với. Mình có sheet 1 bao gồm 2 cột, trong đó cột B có nhiều đối tượng như: bia, nước giải khát, v.v..
Mình muốn hỏi là làm sao mình có thể lọc được riêng từng đối tượng "Bia", "Nước giải khát",v.v (trong cột B) được cột A lựa chọn bao nhiêu lượt?
Ví dụ: "Bia" được "AT" chọn: ... lượt?
"Bia" được "MK" chọn: ... lượt?
"Nước giải khát" được "MK" chọn: ... lượt?

Bạn chạy thử code này!

Sub a()
Dim arr, goods, i As Long, j As Long, key As String
arr = Range("A2:B" & [A10000].End(xlUp).Row)
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        For Each goods In Split(arr(i, 2), ",")
            key = Trim(goods) & " duoc " & Trim(arr(i, 1))
            If Not .exists(key) Then
                .Add key, Trim(goods) & " duoc " & Trim(arr(i, 1)) & " chon: 1"
            Else
                .item(key) = Mid(.item(key), 1, InStrRev(.item(key), " ")) & CLng(Mid(.item(key), InStrRev(.item(key), " ") + 1, 4)) + 1
            End If
        Next
    Next i
    [d2].Resize(.Count, 1) = Application.Transpose(.items())
End With
End Sub

P/s: thấy mấy phòng này quen, bạn làm ở ...DHG hả?