Nhờ chỉ cách map các dữ liệu

[Minh Huyền]

Em đang cần map các dữ liệu ntn, nhờ các Anh Chị chỉ giúp cách map với ạ:

 

[quanluu]

Em đang cần map các dữ liệu ntn, nhờ các Anh Chị chỉ giúp cách map với ạ:

View attachment 162031

Cái này dùng code thui và đã có trên GPE rùi, bạn chịu khó search nhé.

 

[Minh Huyền]

Cái này dùng code thui và đã có trên GPE rùi, bạn chịu khó search nhé.

Em không rõ search ntn, từ khóa thế này để ra được, hị. Anh có thể chỉ giúp em cách xử lý được không ạ?

em cảm ơn

 

[be_09]

Em đang cần map các dữ liệu ntn, nhờ các Anh Chị chỉ giúp cách map với ạ:

View attachment 162031

Dữ liệu của bạn không đơn thuần chỉ có 2 cột có thể nó còn một số cột nữa, vì vậy tôi khuyên bạn không nên nghĩ theo hướng này vì nó rất rắc rối khi tính theo số hóa đơn, ngày, đơn vị tính, số lượng, đơn giá, thành tiền.

Nếu bạn biết dùng PivotTable thì kết quả cũng ra tương tự, nhưng nó có thể tính toán ID với số liệu của từng loại rất dễ dàng và nhanh chóng.

 

[Minh Huyền]

Dữ liệu của bạn không đơn thuần chỉ có 2 cột có thể nó còn một số cột nữa, vì vậy tôi khuyên bạn không nên nghĩ theo hướng này vì nó rất rắc rối khi tính theo số hóa đơn, ngày, đơn vị tính, số lượng, đơn giá, thành tiền.

Nếu bạn biết dùng PivotTable thì kết quả cũng ra tương tự, nhưng nó có thể tính toán ID với số liệu của từng loại rất dễ dàng và nhanh chóng.

Em chỉ cần làm sao để các sản phẩm cùng ID nó sẽ chỉ hiển thị trong 1 ô thôi. Em không giỏi excel, nên nhờ các Anh Chị chỉ giúp em cách làm với ạ

 

[quanluu]

Em chỉ cần làm sao để các sản phẩm cùng ID nó sẽ chỉ hiển thị trong 1 ô thôi. Em không giỏi excel, nên nhờ các Anh Chị chỉ giúp em cách làm với ạ

Mình viết theo yêu cầu của bạn:

Sub run()
Dim i, j, k, lr As Integer, arr()
lr = Range("C6500").End(3).Row
ReDim arr(1 To lr, 1 To 2)


For i = 4 To lr
    k = k + 1
    arr(k, 1) = Cells(i, 3)
    For j = i To lr + 1
        If Cells(j, 3) <> Cells(i, 3) Then
            i = j - 1
            GoTo 1
        End If
        arr(k, 2) = arr(k, 2) & Chr(10) & Cells(j, 4)
    Next
    
1:
    arr(k, 2) = Mid(arr(k, 2), 2, Len(arr(k, 2)) - 1)
Next
Range("I3").Resize(k, 2) = arr
End Sub

 

[HungQuoc49]

Em đang cần map các dữ liệu ntn, nhờ các Anh Chị chỉ giúp cách map với ạ:

View attachment 162031

Dùng 1 cột phụ
---------------