Nhờ Copilot viết macro lọc ra mã hàng chưa có

[SA_DQ]

Trong hình là 2 bảng thống kê số hóa đôn & danh mục hàng đã sẵn:
Nhiệm vụ đề ra là viết 1 macro tìm trong cột 'C' (mặt hàng) những dòng dữ liệu chưa có trong danh mục hàng



Nhờ Copilot ta sẽ có macro như sau:

Sub Replace_Copilot()
    Dim Cls As Range, RngF As Range, CellF As Range
    Dim Tmp As String:                          Dim Rws As Long, W As Integer
   
    Rws = [C2].CurrentRegion.Rows.Count
    ReDim Arr(1 To Rws, 1 To 3):                [J4].Resize(Rws, 3).Value = Arr()
    Arr(1, 1) = [A1].Value:                     Arr(1, 2) = [B1].Value
    Arr(1, 3) = [C1].Value:                     W = 1
    Set RngF = Range("F2", Range("F2").End(xlDown)) ' Danh Muc Cân Loai Bo'
    For Each Cls In Range("C2", Range("C2").End(xlDown))
        Tmp = Cls.Value
        For Each CellF In RngF
            Tmp = Replace(Tmp, CellF.Value, "")
        Next CellF
        Tmp = Replace(Tmp, ",", "")
        If Len(Trim(Tmp)) > 0 Then
            W = W + 1:                          Arr(W, 1) = Cls.Offset(, -2).Value
            Arr(W, 2) = Cls.Offset(, -1).Value: Arr(W, 3) = Cls.Value
        End If
    Next Cls
    If W Then
        Randomize:                              [J4].Resize(W, 3).Value = Arr()
        [J4:L4].Interior.ColorIndex = 34 + 9 * Rnd() \ 1
    End If
End Sub