用于更改多个单元格格式的VBA -停止重复值

Sub ChangeCellFormatAndStopDuplicates()
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    
    ' 设置要更改格式的单元格范围
    Set rng = Range("A1:A10")
    
    ' 获取范围中最后一个非空单元格的行号
    lastRow = rng.Cells(rng.Cells.Count).Row
    
    ' 遍历每个单元格
    For Each cell In rng
        ' 更改单元格格式为粗体
        cell.Font.Bold = True
        
        ' 如果当前单元格的值与上一个单元格的值相同，则停止循环
        If cell.Row > 1 And cell.Value = cell.Offset(-1, 0).Value Then
            Exit For
        End If
    Next cell
    
    ' 清除剩余单元格的格式
    Range(cell.Offset(1, 0), Cells(lastRow, rng.Columns.Count)).ClearFormats
End Sub