Lọc dữ liệu để tạo tem (label) (1 người xem)

[chinhphuc]

Em cần tạo tem (label tự động) nhưng không biết dùng hàm nào, mong các anh chị giúp đỡ. Xin vui lòng xem file đính kèm

 

[hungpecc1]

Em cần tạo tem (label tự động) nhưng không biết dùng hàm nào, mong các anh chị giúp đỡ. Xin vui lòng xem file đính kèm

10-3 nghỉ lâu xa GPE nhớ ghê !
Chào buổi sáng ! chúc GPE một ngày tốt lành !
Viết tạm 1 đoạn code --> bạn tham khảo và tùy biến theo nhé
[GPECODE=vb]
Sub GPE()
Dim Tmparr, Arr, Item, Tmp
Dim i As Long, n As Long, j As Long
On Error Resume Next
Tmparr = Range("A4", [A65536].End(3)).Resize(, 2)
ReDim Arr(1 To 10000)
For i = 1 To UBound(Tmparr, 1)
Item = Tmparr(i, 1)
If Len(Item) Then
Tmp = CLng(Tmparr(i, 2))
For j = 1 To Tmp
n = n + 1
Arr(n) = Item
Next
End If
Next
If n Then
[D410000].Clear
[D4].Resize(n) = WorksheetFunction.Transpose(Arr)
End If
End Sub[/GPECODE]

 

[ndu96081631]

Em cần tạo tem (label tự động) nhưng không biết dùng hàm nào, mong các anh chị giúp đỡ. Xin vui lòng xem file đính kèm

Thử làm bằng công thức xem sao:
- Công thức cho D4: =A4
- Công thức cho D5:

=IF(COUNTA($D$4:$D4)<SUMPRODUCT((COUNTIF($D$4:$D4,$A$4:$A$7)>0)*($B$4:$B$7)),D4,INDEX($A$4:$B$7,1+SUMPRODUCT(1/COUNTIF($D$4:$D4,$D$4:$D4)),1))

Kéo fill xuống đến khi nào gặp lỗi thì ngừng