如何用VBA编程，将Excel表格里A列的内容根据单元格背景颜色做出调整

Question

如果背景色为白色，Ai=Ai-1，如果背景色为白色，Ai不变。

Answer 1

我给你一个判断单元格是否有底色的代码，你在根据自己的要求修改代码即可
Sub abc()

Dim rng As Range, rng1 As Range

Dim y As Integer

Set rng = Range("a1:d9") ''''A1:D9区域

For Each rng1 In rng

y = rng1.Interior.ColorIndex ''''单元格颜色标记数

If y > 0 Then MsgBox rng1.Address ''''如果Y>0，则提示该单元格的地址

Next

End Sub