运行比较所选单元格的 Excel 宏

Question

我想在选定的单元格上运行一个宏 - 宏将单元格与他下面的邻居进行比较 - 更改它们的颜色并移动到下一对单元格。

这是一个 1 维数组，我想在其中比较每对单元格（第 1 个与第 2 个，第 3 个与第 4 个等）

我尝试过使用

For Each cell In Selection

但是我不知道如何将给定的单元格与其下面的单元格进行比较。

Answer 1

下面是示例代码。

Sub compare()
    Dim rng As Range, cell As Range
    Set rng = Selection  '
    For Each cell In rng
        'makes comparison
        'offset(1,0) is used to find one cell below active cell
        If cell.Value = cell.Offset(1, 0) Then
            cell.Offset(1, 0).Interior.Color = vbRed
        End If
    Next
End Sub

更新的答案

Sub compare()
    Dim rows As Long
    rows = Selection.rows.Count - 1
    Dim selCol As Long
    selCol = ActiveCell.Column
    Dim selRow As Long
    selRow = ActiveCell.Row
    For i = selRow To (selRow + rows)
       If Cells(i, selCol) = Cells(i, selCol + 1) Then
            Range(Cells(i, selCol), Cells(i, selCol + 1)).Interior.Color = vbYellow
        End If
    Next

End Sub

Answer 2

Sub compareCells()
    Dim i As Integer
    'Check dimension
    If Selection.Columns.Count <> 1 Then
        MsgBox "not 1d array"
        Exit Sub
    End If
    'Check size
    If Selection.Rows.Count Mod 2 <> 0 Then
        MsgBox "size not even"
        Exit Sub
    End If
    For i = 1 To Selection.Count / 2
        With Selection
        If .Cells(2 * i - 1) = .Cells(2 * i) Then
            'what you want to do here, for e.g. , change color
            .Cells(2 * i).Interior.Color = vbYellow
        Else
            'what you want to do here
            'MsgBox "neq"
        End If
        End With
    Next i
End Sub