如果循环中的单元格是= to the previous，有没有办法[VBA]签入for each循环？

Sub CheckPreviousValue()
    Dim rng As Range
    Dim previousValue As Variant
    previousValue = ""
    
    Set rng = Range("A1:A10") ' 待检查的单元格范围
    
    For Each cell In rng
        If cell.Value = previousValue Then
            ' 当前单元格的值等于前一个单元格的值
            ' 在这里执行相应的操作
            ' 例如：cell.Interior.Color = RGB(255, 0, 0) ' 将单元格背景色设置为红色
        End If
        
        previousValue = cell.Value ' 更新前一个单元格的值
    Next cell
End Sub