多个值上的单元格颜色更改复制粘贴

Question

任何人都可以请求Excel VBA编码方面的帮助，我希望在单一范围内更改值时更改单元格的颜色，并在一定范围内复制粘贴，例如"A1:B10"

我可以执行如下单个单元格复制粘贴，但不知道如何对多个单元格执行相同操作，

If Not Intersect(Target, Range("B2:K20")) Is Nothing Then
    If oldValue <> Target.Value Then
        Target.Interior.Color = RGB(184, 245, 198)
    End If
End If

Answer 1

您需要循环浏览Target，如下面的代码所示：

Dim C As Range

If Not Intersect(Target, Range("B2:K20")) Is Nothing Then
    ' loop through cells in range
    For Each C In Target
        If oldValue <> C.Value Then
            C.Interior.Color = RGB(184, 245, 198)
        End If
    Next C
End If