根据其他范围突出显示唯一值

时间:2016-04-20 19:26:09

标签: excel vba excel-vba highlight vlookup

第1列位于Sheet1中,第2列位于Sheet2中。如果未找到该值,则突出显示该单元格。我正在尝试比较两列的vlookup。我认为语法不正确。请查看我在下面尝试的代码:

Option Explicit

Sub VlookupColoums()
   ' declarations
    Dim lookFor As Range
    Dim srchRange As Range
    Dim I As Long
    Dim vtest As Variant
    ' start
    Set lookFor = Sheets("Sheet1").Range("A13").End(xlUp)
  Set srchRange = Sheets("Sheet2").Range("A2").End(xlUp)
  vtest = Application.VLookup(lookFor.Rows.Count, srchRange.Rows.Count, 2, False)
    ' process
   For I = 1 To lookFor.Rows.Count
    If IsError(vtest) Then
srchRange.Interior.Color = 4
Else
Exit Sub
End If
Next I


End Sub

1 个答案:

答案 0 :(得分:2)

假设你有关于Sheet1的数据!A1:A15和Sheet2!A1:A10。

另外假设您要在Sheet2上突出显示唯一的单元格(其他列表中至少有一个相同的单元格)。

基本上你想要格式化所有单元格,如果在另一个列表中计算出来,则会出现0.步骤:

  1. 选择要在Sheet2上评估的所有单元格
  2. 转到Home / Styles / Conditional Formatting
  3. 选择New Rule,然后选择Use a formula to determine...
  4. 输入以下公式:=COUNTIF(Sheet1!$A$1:$A$5,A1)=0
  5. 单击“格式”按钮,然后设置唯一单元格的格式
  6. 利润。 :)
  7. Conditional formatting