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

發表迴響

在下方填入你的資料或按右方圖示以社群網站登入:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / 變更 )

Twitter picture

You are commenting using your Twitter account. Log Out / 變更 )

Facebook照片

You are commenting using your Facebook account. Log Out / 變更 )

Google+ photo

You are commenting using your Google+ account. Log Out / 變更 )

連結到 %s