寻求Excel跨工作表值匹配的条件格式/VBA解决方案指引

针对你需要的「Sheet1输入值后校验是否存在于Sheet2，存在则设置条件格式」的需求，提供两种可行方向：

一、纯条件格式实现（无需VBA） #

这是最轻量化的方案，直接通过Excel内置功能完成：

1. 选中Sheet1中需要应用规则的单元格区域（比如A1:C100）
2. 点击「开始」选项卡 → 「条件格式」→ 「新建规则」
3. 选择「使用公式确定要设置格式的单元格」
4. 在公式框中输入：

   =COUNTIF(Sheet2!$A$1:$Z$100, A1)>0
   

   • 说明：Sheet2!$A$1:$Z$100替换为你实际要匹配的Sheet2数据范围（用绝对锁定避免拖动时范围偏移）；A1是选中区域的左上角单元格，保持相对引用即可
5. 点击「格式」按钮，设置你需要的样式（比如填充色、字体颜色），确认后完成

二、VBA实现（适配你已有的代码逻辑） #

如果你更习惯用VBA控制，可以基于你提供的代码修改，核心是把「固定值匹配」改成「跨表公式匹配」：

Sub SetCrossSheetCondFormat()
    Dim targetRG As Range
    Dim matchCond As FormatCondition
    
    ' 设置Sheet1中要应用条件格式的区域，替换为你的实际范围
    Set targetRG = Sheet1.Range("A1:C100")
    
    ' 清除原有条件格式
    targetRG.FormatConditions.Delete
    
    ' 添加跨表匹配的条件格式规则：用COUNTIF判断当前单元格值是否在Sheet2的目标范围中
    Set matchCond = targetRG.FormatConditions.Add( _
        Type:=xlExpression, _
        Formula1:="=COUNTIF(Sheet2!$A$1:$Z$100, " & targetRG.Cells(1, 1).Address(False, False) & ")>0" _
    )
    
    ' 设置格式样式，可根据需求调整
    With matchCond
        .Interior.Color = RGB(146, 208, 80) ' 填充绿色
        .Font.Color = vbBlack
    End With
End Sub

关键补充： #

• 代码中Sheet2!$A$1:$Z$100需要替换为Sheet2中存储匹配值的实际范围，建议用绝对引用（带$）
• targetRG.Cells(1,1).Address(False,False)会生成相对引用的单元格地址（比如A1），确保规则应用到整个区域时，每个单元格都会匹配自身的值
• 若要在用户输入值后自动触发规则更新，可把代码放到Worksheet_Change事件中：

  Private Sub Worksheet_Change(ByVal Target As Range)
      ' 仅当修改的单元格在目标区域内时执行
      If Not Intersect(Target, Sheet1.Range("A1:C100")) Is Nothing Then
          SetCrossSheetCondFormat
      End If
  End Sub
  

内容的提问来源于stack exchange，提问作者MJobbson