以下是一个使用 VBA 给单元格上色的示例代码

以下是一个使用 VBA 给单元格上色的示例代码：

Sub HighlightCell()
    ' 定义变量
    Dim ws As Worksheet
    Dim cellRange As Range
    
    ' 填充变量
    Set ws = ActiveSheet
    Set cellRange = ws.Range("A1")
    
    ' 给单元格上色
    cellRange.Interior.Color = vbYellow
End Sub

在上面的代码中，我们首先定义了名为 HighlightCell 的子方法。该方法将设置一个要上色的工作表和单元格范围，然后将其内部颜色更改为黄色。

注意，我们使用 Set 语句将变量 ws 和 cellRange 分别设置为当前活动工作表和单元格 A1。您可以根据需要更改这些参数来选择要上色的单元格。

调用这个函数的示例代码如下：

Sub Example()
    ' 调用子方法高亮显示单元格
    HighlightCell
End Sub

在上面的代码中，我们只需调用 HighlightCell 方法即可在当前活动工作表中的单元格 A1 上方便地添加黄色高亮显示。