写一个vba代码实现将ws2的B列值添加背景色，不同的值值赋不同背景色

以下是vba代码实现将ws2的B列值添加背景色，不同的值值赋不同背景色的示例：

Sub colorCells()
    Dim ws2 As Worksheet
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    Dim lastRow As Long
    lastRow = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row
    
    Dim i As Long
    For i = 1 To lastRow
        Dim cellValue As String
        cellValue = ws2.Range("B" & i).Value
        
        Select Case cellValue
            Case "Value1"
                ws2.Range("B" & i).Interior.Color = RGB(255, 0, 0) 'Red
            Case "Value2"
                ws2.Range("B" & i).Interior.Color = RGB(255, 255, 0) 'Yellow
            Case "Value3"
                ws2.Range("B" & i).Interior.Color = RGB(0, 255, 0) 'Green
            Case Else
                'Do nothing
        End Select
    Next i
End Sub

在这个示例中，我们首先定义了一个名为ws2的工作表对象，然后计算出B列的最后一行。接下来，我们遍历B列的每个单元格，并根据其值设置不同的背景颜色。在这个示例中，我们使用Select Case语句，但也可以使用其他条件语句，如If语句。最后，我们调用这个子过程以执行此操作。