通过条件格式每隔 n 行比较两个单元格答案

【问题标题】：Comparing two cells every nth row via Conditional Formatting通过条件格式每隔 n 行比较两个单元格
【发布时间】：2021-07-11 17:40:35
【问题描述】：

我正在寻找创建条件格式规则来比较两组文本以查看它们是否匹配，如果不匹配，则将第二个条目突出显示为红色。内容是在第二行手动输入的，我们有 3 行之间存在问题。我只是比较 Text2 和 Text1、Text 4 和 Text 3 等。

文本1

文本2

3 行

文本3

文本4

（模式重复 500 个条目）

我还没有找到用一条规则来做到这一点的方法（如果你知道这会很棒！）所以我想使用一个宏来为每个比较创建一个新规则并重复所需的数字次。

Range("J2").Select
Dim i As Integer
For i = 1 To 250

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="J1=J2"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
ActiveCell.Offset(5, 0).Select
Next i

结束子

主要问题是中间的行，所以我无法创建单个条件格式公式并复制下来。我的 VBA 代码的问题是 Formula1 是硬编码的。它应该比较 J1=J2，然后 J6=7，等等。

有人知道一个好的解决方案吗？

谢谢。

【问题讨论】：

您的意思是您要比较的每对文本之间有三对行（这是我可以得到 J1=J2 然后 J9=J10 的唯一方法）？
谢谢，这是一个错字。应该是“J1=J2, then J6=7” 是 3 行而不是成对行，抱歉。

标签： excel vba formatting conditional-statements compare

【解决方案1】：

我想我明白了。我设法找到一种将 VBA 代码合并到 Formula1 中的方法，并使用整数来更改每个选择的值。我的实际数据从 F5 开始，因此我将其用作初始单元格选择。

Sub CondForm_Col_F()
'
' TestOne Macro
'
    Dim i As Integer
    Dim n As Integer
    Dim m As Integer
    n = 4
    m = 5
Range("F5").Select
For i = 1 To 147
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=F" & m & "<>F" & n & ""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
n = n + 5
m = m + 5
ActiveCell.Offset(5, 0).Select
Next i
End Sub

【讨论】：

【解决方案2】：

您可以从 J2 开始尝试这样的规则：

=AND(J2<>J1,MOD(ROW(),5)=2)

如果从不同的行开始条件格式化（比如从 J3 开始格式化并将其与 J2 进行比较，然后将 J8 与 J7 进行比较），您可以将其概括为：

=AND(J2<>J3,MOD(ROW()-ROW(J$3),5)=0)

【讨论】：