Set da = Range("a1").CurrentRegion For Each bo In da.Rows If bo.Cells(2).Value = "*總計" Then bo.Interior.ColorIndex = 6 End If修改内容包含總計的添加顔色的完整代碼

以下是修改内容包含總計的添加顏色的完整代碼：

Sub AddColorToTotal()
    Dim da As Range
    Dim bo As Range
    
    Set da = Range("a1").CurrentRegion
    
    For Each bo In da.Rows
        If bo.Cells(2).Value = "*總計" Then
            bo.Interior.ColorIndex = 6 '添加顏色
        End If
    Next bo
End Sub

请注意，此代码会检查当前区域中每一行的第二个单元格是否包含“*總計”，如果是，则将该行的背景颜色设置为颜色索引为6的颜色。您可以根据需要更改颜色索引。