Liệt kê chứng từ chưa xuất hiện? (3 người xem)

[win-sun]

- Em gửi file ví dụ nhờ các bác xem giúp, em có danh mục 8 loại chứng từ, giả sử phát sinh 4 loại còn lại 4 loại em muốn liệt kê ra và xếp sau các loại chứng từ đã xuất hiện, em có nêu trong ví dụ các bác xem giúp nhé ! cảm ơn nhiều.

- Ở cái chổ mình liệt kê đó bạn, có 4 loại phát sinh thì minh chọn lấy 4 loại đó ra trước còn 4 ô rổng còn lại mình muốn lấy nó từ trong danh mục để lắp đầy vào 4 ô này thôi.
- Cũng giống như phần rút trích vậy đó bạn, lọc danh sách không trùng nhau, ưu tiên chọn lấy trong vùng phát sinh ra trước nếu ô nào còn thiếu thì lấy trong danh mục lắp vào.
cảm ơn bạn

 

[ChanhTQ@]

Bạn thử với macro này xem sao!

Option Explicit
Sub FIND2Times()
 Dim Rng As Range, sRng As Range, Clls As Range
 Dim bCol As Byte, bColor As Byte
 
 Set Rng = Range("A3:H3"):          Range("A14:AA14").Clear
 For Each Clls In Range("A9:H9")
    Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        bCol = 1 + bCol
        Cells(14, bCol) = sRng.Value
    End If
 Next Clls
 If [A14].Value <> "" Then
    bColor = 33
    Set Rng = Range([A14], [iv14].End(xlToLeft))
    For Each Clls In Range("A3:H3")
        Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
        If sRng Is Nothing Then
            With [iv14].End(xlToLeft).Offset(, 1)
                .Value = Clls.Value
                bColor = bColor + 1
                .Interior.ColorIndex = bColor
            End With
        End If
    Next Clls
 Else
    Range("A14:H14").Value = Rng.Value
    Range("A14:H14").Interior.ColorIndex = 39
 End If
End Sub

 

[win-sun]

- Cảm ơn anh Chanh TQ nhiều, nhưng anh ơi anh đã làm ơn thì làm ơn cho trót nhé, em thực sự cần dùng bằng công thức hơn, anh xem có công thức nào anh giúp giùm em cái nữa nha! cảm ơn anh thật nhiều, làm như thế là đúng ý em lắm rồi đó anh,

- Nhờ các bác hướng dẫn sử dụng công thức trong trường hợp này, cảm ơn tất cả mọi người.

 

[ChanhTQ@]

Không ai là vẹn toàn.

- Cảm ơn anh Chanh TQ nhiều, nhưng anh ơi anh đã làm ơn thì làm ơn cho trót nhé, em thực sự cần dùng bằng công thức hơn, anh xem có công thức nào anh giúp giùm em cái nữa nha! cảm ơn anh thật nhiều, làm như thế là đúng ý em lắm rồi đó anh,

Đã trót thì cũng muốn trét lắm, nhưng lực bất tòng tâm; Nói thẳng ra là bạn nhờ không đúng chổ rồi.
Cái khoảng công thức thì mình bí rị; Có khi còn thua bạn nữa chứ chẳng chơi!

Nhờ ÂnhTuân1066/NDU, . . . . í, nha!