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修改單元格中出現總計兩字就整行標淡青色

你可以尝试以下代码：

Set da = Range("a1").CurrentRegion
For Each bo In da.Rows
    If InStr(1, bo.Cells(1, da.Columns.Count).Value, "總計") > 0 Then
        bo.Interior.ColorIndex = 35 '添加淡青色
    End If
Next bo

这段代码中，我们首先使用 `CurrentRegion` 获取了包含单元格 A1 的连续区域，然后遍历每一行来查找是否出现了“總計”这个词。在查找时，我们使用了 `InStr` 函数来判断单元格中是否包含该字符串，如果包含就将整行的背景色设置成淡青色。需要注意的是，这里我们将颜色索引设置成了 35，而不是 6，因为 6 所对应的颜色是红色，而不是淡青色。

相关问题

Set da = Range("a1").CurrentRegion For Each bo In da.Rows If bo.Cells(1).Value = "*總計" Then bo.Delete End If這個怎麽修改

这段 VBA 代码的作用是删除 Excel 表格中第一列为“*總計”的行。如果您想要修改这段代码，可以根据您的需求进行修改。

例如，如果您想要删除第二列为“*總計”的行，可以将代码中的 ".Cells(1)" 改为 ".Cells(2)"，即：

Set da = Range("a1").CurrentRegion
For Each bo In da.Rows
    If bo.Cells(2).Value = "*總計" Then
        bo.Delete
    End If
Next bo

如果您有其他的需求，也可以根据类似的方式进行修改。

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的颜色。您可以根据需要更改颜色索引。