Excel vba 檢查儲存格中的值是否在其它資料表中出現並標記

參考：

如何在 Excel 中計算範圍內之數字或文字出現的次數

用Range？用Cells？

說明：檢查儲存格的值，是否在其它表格範圍(range)出現(countif)。

VBA CODE

'將要檢查的工作表Sheet1 (DATA) 儲存格E26~E112中的值, 一個一個取出來用來統計是否在工作表Sheet3 (Sheet1)
'儲存格中F2~F303 是否有出現過。
'如果有出現過，就將受檢查的儲存格的內容文件改為紅色字。

Function usecells()
Dim j As Long
'僅在 Sheet1 中執行以下程式碼
With Sheet1
For j = 26 To 112
    cas = .Range("E" & j) '取得受檢查字串
    '判斷字串在樣本中是否出現
    If Application.WorksheetFunction.CountIf(Workbooks(1).Sheets(3).Range("f2:f303"), "*" & cas & "*") > 0 Then
        .Range("E" & j).Font.ColorIndex = 3 '修改字體顏色為紅色
    End If
Next
End With
End Function