首页 文章

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

提问于
浏览
0

任何人都可以请求帮助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

1 回答

  • 0

    你需要循环遍历 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
    

相关问题