是否可以在excel中使用VBA根据单元格中的字母和突出显示为黄色的单元格来保存累计合计？

Sub SaveCumulativeTotal()
    Dim cell As Range
    Dim total As Double
    
    ' 遍历所有单元格
    For Each cell In ActiveSheet.UsedRange
        ' 检查单元格是否为黄色背景色
        If cell.Interior.Color = RGB(255, 255, 0) Then
            ' 检查单元格中的值是否为字母
            If IsLetter(cell.Value) Then
                ' 累加值
                total = total + cell.Value
            End If
        End If
    Next cell
    
    ' 将累计合计保存到指定单元格
    Range("A1").Value = total
End Sub

Function IsLetter(str As String) As Boolean
    IsLetter = False
    If Len(str) = 1 Then
        If UCase(str) >= "A" And UCase(str) <= "Z" Then
            IsLetter = True
        End If
    End If
End Function