3

我有 4 列,从 A 到 D。我需要找到每行中 C 列相同且每行中 D 列相同的行。最好在 E 列中放置一个 True 或 False 值。VBA 或公式有效,尽管我认为这样的事情可以通过公式来实现。

例如,我有以下内容:

第 1 行 XX 123 XYZ
第 2 行 XX 234 XYZ
第 3 行 XX 234 YZX
第 4 行 XX 234 YZX

在本例中,第 1 行和第 2 行的 E 列为 False,第 3 和第 4 行的 E 列为 True。

4

1 回答 1

2

这是你正在尝试的吗?

Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long, i As Long

    Set ws = Sheets("Sheet1")

    With ws
        lRow = .Range("C" & .Rows.Count).End(xlUp).Row

        For i = 1 To lRow
            If i = 1 Then
                If .Range("C" & i).Value = .Range("C" & i + 1).Value And _
                .Range("D" & i).Value = .Range("D" & i + 1).Value Then _
                .Range("E" & i).Value = "True" Else .Range("E" & i).Value = "False"
            Else
                If (.Range("C" & i).Value = .Range("C" & i + 1).Value And _
                .Range("D" & i).Value = .Range("D" & i + 1).Value) Or _
                (.Range("C" & i).Value = .Range("C" & i - 1).Value And _
                .Range("D" & i).Value = .Range("D" & i - 1).Value) Then _
                .Range("E" & i).Value = "True" Else .Range("E" & i).Value = "False"
            End If
        Next i
    End With
End Sub

快照

在此处输入图像描述

于 2012-07-13T19:09:15.660 回答