Public Sub 查詢黑名單_函數()

    '1.清除舊結果資料

    Sheets(3).Range("A:A").ClearContents

    Range("A1") = "查詢結果"

    '計時器

    Start = Timer    ' 設定開始暫停的時刻。

    '2.取查詢名單和黑名單字串比對

    '查詢結果從 k列開始

    Sheets("查詢結果").Select

    k = 2

    For i = 2 To Sheets("查詢名單").Range("A2").End(xlDown).Row

        Sheets("查詢名單").Cells(i, "B") = "=CountIf(黑名單, A" & i & ")"

        If Sheets(1).Cells(i, "B") >= 1 Then

            Sheets("查詢結果").Cells(k, "A") = Sheets("查詢名單").Cells(i, "A")

            k = k + 1

        End If

    Next

    '計時器結束

    Finish = Timer    ' 讀取現在時刻。

    TotalTime = Finish - Start    ' 計算暫停所經過的時間。

    MsgBox "耗時:" & TotalTime & "秒"

End Sub

Public Sub 查詢黑名單_字串()

    Start = Timer    ' 設定開始暫停的時刻。

   

    '1.將所有黑名單串成一個字串

    For j = 2 To Sheets(2).Range("A2").End(xlDown).Row

        S = S & Sheets(2).Cells(j, "A")

    Next

   

    k = 2

    '2.取查詢名單和黑名單字串比對

    For i = 2 To Sheets(1).Range("A2").End(xlDown).Row

        If InStr(S, Sheets(1).Cells(i, "A")) Then

            Sheets(3).Cells(k, "A") = Sheets(1).Cells(i, "A")

            k = k + 1

        End If

    Next

   

    Finish = Timer    ' 讀取現在時刻。

    TotalTime = Finish - Start    ' 計算暫停所經過的時間。

    MsgBox "耗時:" & TotalTime & "秒"

End Sub