例如图中，已经设置8月2日到8月16日的单元格显示红色，那么怎么把这些单元格的下一个设为蓝色？

http://www.ffcell.com/WenKu/article.aspx?id=512可以试一下lotex进行判断

复制 到微信打开，看看这个定位标记颜色 https://mp.weixin.qq.com/s/--Sa6lJVDFJUkVIyL1u5dA

格式刷

Sub ColorCode()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
      
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 将 "Sheet1" 替换为您的工作表名称
    Set rng = ws.UsedRange ' 使用已使用的范围，也可以指定特定范围，例如：ws.Range("A1:C10")
      
    For Each cell In rng
        If cell.Interior.Color = RGB(255, 0, 0) Then ' 如果单元格为红色
            cell.Offset(0, 1).Interior.Color = RGB(0, 0, 255) ' 将同行下一个单元格设置为蓝色
        End If
    Next cell
End Sub

试试这段VBA，