Giúp mình tính số sản phẩm của khách hàng ! (1 người xem)

[pearl.bn91]

Mình đang có 1 bảng khách hàng, trong đó mỗi khách hàng lại mua nhiều sản phẩm khác nhau

Mình muốn đếm xem từng khách hàng mua bao nhiêu sp. Vì các ô trong cột sản phẩm của mình là dạng chuỗi, các sản phẩm khác nhau được ngăn cách nhau bằng dấu "," nên mình không biết xử lý ra sao. Mong mọi người giúp mình với

 

[pearl.bn91]

Mình gửi kèm cả bản kết quả mà mình muốn ở sheet KQ. Ai giúp mình với

 

[dung151b]

Bạn theo link dưới download Add-ins Power Query của Excel cài đặt và bài toán của bạn sẽ được giải quyết đơn giản bằng power query:

http://www.microsoft.com/en-us/download/details.aspx?id=39379

 

[pearl.bn91]

Cám ơn bạn , mình sẽ thử dùng cách này. Mình cũng chưa dùng nó bao giờ

 

[pearl.bn91]

cái power query yêu cầu office 2010 hoặc 2013 bạn ạ, mình chủ dùng 2007 nên không dùng được (

 

[Quang_Hải]

Mình đang có 1 bảng khách hàng, trong đó mỗi khách hàng lại mua nhiều sản phẩm khác nhau

Mình muốn đếm xem từng khách hàng mua bao nhiêu sp. Vì các ô trong cột sản phẩm của mình là dạng chuỗi, các sản phẩm khác nhau được ngăn cách nhau bằng dấu "," nên mình không biết xử lý ra sao. Mong mọi người giúp mình với

Copy code này về cho vào 1 module bấm 1 cái là xong

Sub QuangHai()
Dim Data(), Res(1 To 10000, 1 To 3)
Dim i, j, Tam, it, k
With Sheets("Khachhang")
   Data = .Range(.[A2], .[C65536].End(3)).Value
End With
For i = 1 To UBound(Data)
   Tam = Split(Data(i, 3), ",")
   If UBound(Tam) > 0 Then
      For Each it In Tam
         k = k + 1
         Res(k, 1) = Data(i, 1)
         Res(k, 2) = Data(i, 2)
         Res(k, 3) = it
      Next
   Else
      k = k + 1
      For j = 1 To 3
         Res(k, j) = Data(i, j)
      Next
   End If
Next
Sheets("Ketqua").[D2].Resize(k, 3) = Res
End Sub