EXCEL每行重复数据函数

发布网友发布时间：2022-11-25 09:47

共4个回答

热心网友时间：2023-10-09 07:29

然后挑一行，用条件格式凸显，然后停止录制，打开visual basic 中的模块

把选择的范围该成一个for循环就行了

就是在外面写个for循环，再按运行，就都解决了！

Sub 宏1()
'
' 宏1 宏
'
Dim i As Integer
For i = 1 To Range("A65536").End(xlUp).Row
    Rows(i).Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
Next i
End Sub

热心网友时间：2023-10-09 07:30

最好是把例图晒出来，才能帮到你

热心网友时间：2023-10-09 07:30

数据量太大，VBA吧

热心网友时间：2023-10-09 07:31

“每行重复数据”是什么意思？不同列中的重复数据，还是仅重复行？
用图片举例——原数据是什么样，最终要达到什么效果。