Question

有人知道如何实现以下目标吗？

我在Excel工作表中选择了一系列单元格。按快捷键后，包含数据的所选范围中的每个单元格都应填充红色。

似乎没有默认的Excel功能，但也许可以使用VBA完成？

不幸的是，以下代码无法正常工作：

Sub ColorizeCells()
    Dim Data As Range
    Dim cell As Range
    Set Data = Selection

    For Each cell In Data
        If Not cell.Value Is Nothing Then
            cell.Interior.ColorIndex = 4
        End If
    Next

End Sub

对此有任何建议都非常感谢。

Answer 1

蒂姆威廉姆斯的暗示完成了这个伎俩。谢谢！

以下代码有效：

Sub ColorizeCells()
    Dim Data As Range
    Dim cell As Range
    Set Data = Selection

    For Each cell In Data
        If Len(cell.Value) > 0 Then
            cell.Interior.ColorIndex = 4
        End If
    Next
End Sub

着色包含选定范围内数据的单元格

1 个答案: