VBA, 同一列里, 用不同的颜色标记值不一样的单元格, 单元格值相同的, 只标注最后面的那个单元格之

可以使用VBA中的条件格式来实现这个功能。以下是一个基本的代码示例：

Sub ColorCells()
    Dim lastRow As Long
    lastRow = Range("A" & Rows.Count).End(xlUp).Row '获取最后一行的行数
    
    Dim i As Long
    Dim currentCellValue As Variant
    Dim previousCellValue As Variant
    
    previousCellValue = ""
    
    For i = 1 To lastRow
        currentCellValue = Range("A" & i).Value '获取当前单元格的值
        
        If currentCellValue <> previousCellValue Then '如果当前单元格的值和前一个单元格的值不同
            Range("A" & i).Interior.ColorIndex = 6 '则将当前单元格的背景颜色设置为黄色
            previousCellValue = currentCellValue '并将前一个单元格的值更新为当前单元格的值
        End If
    Next i
End Sub

该代码假设你要标记第一列中的单元格。它会遍历整个列，并将值不同的单元格的背景颜色设置为黄色。

请注意，这个代码只会标记最后出现的相同值的单元格。如果你想要标记所有单元格，可以将条件改为 `currentCellValue = previousCellValue`。