在线等，日期标识问题

qiyan420

A列找出相同数据，然后比对生产日期最晚日期如果早于上次日期，如何让其单元格警示红色.

一把小刀闯天下

'猜一个，假设A列有序。如果无序需要再加个排序函数处理一下,,,

Option Explicit

Sub test()
  Dim i, j, k, pos, min, arr
  [c2].Resize(Rows.Count - 1).Interior.ColorIndex = xlNone
  arr = Range("a1:c" & Cells(Rows.Count, "a").End(xlUp).Row + 1)
  For i = 2 To UBound(arr, 1) - 1
    For j = i To UBound(arr, 1) - 1
      If arr(j, 1) <> arr(j + 1, 1) Then
        If j > i Then
          min = arr(i, 3): pos = i
          For k = i + 1 To j
            If min > arr(k, 3) Then min = arr(k, 3): pos = k
          Next
          Cells(pos, 3).Interior.Color = vbRed
        End If
        i = j: Exit For
      End If
  Next j, i
End Sub

qiyan420

一把小刀闯天下 发表于 2018-8-10 09:03
'猜一个，假设A列有序。如果无序需要再加个排序函数处理一下,,,

Option Explicit

感谢，正在学习中，研究下哈

qiyan420

朱荣兴 发表于 2018-8-10 08:15
同一个问题竟然发了十多个贴，不思考为何无人回贴，也不回答别人的疑问，只是一味盲目开贴。

不好意思，有点着急

lsc900707

qiyan420 发表于 2018-8-10 10:06
不好意思，有点着急

着急的话顶贴就好，不要重复发帖！

qiyan420

一把小刀闯天下 发表于 2018-8-10 09:03
'猜一个，假设A列有序。如果无序需要再加个排序函数处理一下,,,

Option Explicit

还是有点问题：两个数据之间的日期也标红，和第二行没比对就已经标红了