确实还是字典法方便

好久没有来充数了，废话也是要写写的。
终于稍微尝到了一点OO的甜头。因为一直用不好OO，一直逃避，能不用就不用。正则什么的，都是没办法了才用。这次为了页面和代码的简单易懂，在不重复List的问题上，还是选择了字典法。

'********************************APT vs TPT

Dim DicTest As Object

'Here apply non dup by dictionary method


Set DicTest = CreateObject("scripting.dictionary")


For i = 2 To Sheet6.UsedRange.Rows.Count

    If Trim(Sheet6.Cells(i, 2)) = "3.Test File Received" Then

        x = Trim(Sheet6.Cells(i, 3).Value) & "||" & Trim(Sheet6.Cells(i, 8).Value)
        If Not DicTest.exists(x) Then
            DicTest.Add x, x
        End If



    End If

Next i

krr = DicTest.items
arr = DicTest.items
brr = DicTest.items


For i = 0 To UBound(krr)

    arr(i) = Split(krr(i), "||")(0)
    brr(i) = Split(krr(i), "||")(1)

Next i

For k = 0 To UBound(krr)

    If arr(k) = "APT" Then

        sAPT = sAPT + 1
    End If

    If arr(k) = "TPT" Then

        sTPT = sTPT + 1

    End If

Next k

If (sTPT + sAPT) <> DicTest.Count Then

    MsgBox "Some file type may not be entered by DRM, please check!"
    Exit Sub
End If

'********************Start preparing table @ sheet7