Question

在excel2003中，请VBA高手帮忙编写代码：图片解释如下，谢谢！

Answer 1

没太看明白，你是想先选中单元区域，还是在固定区域中操作呢？

追问

是先选中单元格区域范围，再执行的

追答

Public Sub 查询相同()
    Dim CXrng As Range
    Dim MBrng As Range
    Dim SL As Long, i As Long
    Set MBrng = Selection
    SL = MBrng.Count
    Set CXrng = MBrng(SL - 2).Resize(3, 1)
    For i = 1 To SL - 2
        If MBrng(i).Value = CXrng(1).Value And MBrng(i + 1).Value = CXrng(2).Value And MBrng(i + 2).Value = CXrng(3).Value Then
            MBrng(i).Resize(3, 1).Interior.ColorIndex = 6

        End If

    Next
End Sub

追问

高手，谢谢你!,太厉害了，我还想问一下，如果只查找最下两个数（就是三个变两个），要怎么改一下，代码呢，谢谢了！为表示感谢，我提高了悬赏。

追答

Public Sub 查询相同()
    Dim CXrng AsRange
    Dim MBrng AsRange
    Dim SL As Long,i As Long
    Set MBrng =Selection
    SL =MBrng.Count
    Set CXrng =MBrng(SL - 1).Resize(2, 1)
    For i = 1 To SL- 1
        IfMBrng(i).Value = CXrng(1).Value And MBrng(i + 1).Value = CXrng(2).Value Then
           MBrng(i).Resize(2, 1).Interior.ColorIndex = 6
        End If
    Next
End Sub

追问

请问这个我运行时，显示编译语法错误？

追答

哦，是粘贴时出现了错误，再试一下：

Public Sub 查询相同()

Dim CXrng As Range
Dim MBrng As Range
Dim SL As Long, i As Long
Set MBrng = Selection
SL = MBrng.Count
Set CXrng = MBrng(SL - 1).Resize(2, 1)

For i = 1 To SL - 1
    If MBrng(i).Value = CXrng(1).Value And MBrng(i + 1).Value = CXrng(2).Value Then

        MBrng(i).Resize(2, 1).Interior.ColorIndex = 6

    End If
Next
End Sub