急需帮助！！！Excel 查找重复值，对同类重复值数据对比

zhangru2199

大家帮帮忙对重复数据进行筛选，对于重复次数大于1的数据进行 相对应的两列数据错位对比

zhangru2199

有没有大神呀

zhangru2199

急需帮助呀，非常感激

哈哈444

Sub 查找标红()
Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.AutoFilter.Sort.SortFields.Clear
    ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range _
        ("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveSheet.AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.AutoFilter
Set d = CreateObject("scripting.dictionary")
k = Range("A1").End(xlDown).Row
arr = Range("A2:A" & k)
For i = 1 To k - 1
d(arr(i, 1)) = ""
Next
t = d.keys
ReDim s(1 To d.Count, 1 To 1)
For i = UBound(t) To 0 Step -1
        k1 = k1 + 1
        s(k1, 1) = t(i)
Next
[f1] = "辅助姓名"
For m = 2 To d.Count + 1
Cells(m, 6) = s(m - 1, 1)
Next
For m = 2 To d.Count + 1
100:
k2 = Application.WorksheetFunction.CountIf(Columns("a"), Cells(m, 6))
If k2 = 1 Then
m = m + 1
GoTo 100
End If
k3 = Columns("a").Find(Cells(m, 6)).Row
For p = 1 To k2 - 1

If Cells(k3, 2) <> Cells(k3 + 1, 3) Then
Cells(k3, 2).Select
With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
Cells(k3 + 1, 3).Select
With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With

End If
k3 = k3 + 1
Next
Next


For m = 2 To d.Count + 1
400:
k4 = Application.WorksheetFunction.CountIf(Columns("a"), Cells(m, 6))
If k4 = 1 Then
m = m + 1
GoTo 400
End If
k5 = Columns("a").Find(Cells(m, 6)).Row
For p = 1 To k4 - 1

If Cells(k5, 4) <> Cells(k5 + 1, 5) Then
Cells(k5, 4).Select
With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
Cells(k5 + 1, 5).Select
With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With

End If
k5 = k5 + 1
Next
Next
Columns("F:F").Select
    Selection.ClearContents

End Sub

zhangru2199

哈哈444 发表于 2018-7-18 20:07
Sub 查找标红()
Rows("1:1").Select
    Selection.AutoFilter

您好，非常感谢。还有一个问题对于时间相差一天也算连续，例如2018-07-18与2018-7-19视为连续，不是让两个时间相等，请问怎么改。还有一个问题是，我上传的表格是我提取出来的数据，其实在我的原始数据表格中单位名称在B列，费用的起始时间和费用的截止时间再N和O列，上期读数和本期读数分别在AC和AD列，请问如何解决

zhangru2199

这是原始表格数据所在的位置