[已解决]各位大侠，请问谁能通知VBA匹配出重复的时间段？

hamalzh

条件一：先匹配出为同一天:
条件二：同一天内有共同时间段的，EXCEL中单元格标黄色。
（详细见附件）

最佳答案

月排行榜 / 总排行榜

森林狼

2012-10-17 22:56

  Range("C2:D60000").Interior.ColorIndex = xlNone
  
  Dim x, y
For x = 2 To Range("a65536").End(xlUp).Row
For y = x + 1 To Range("a65536").End(xlUp).Row
If Cells(y, 2) = Cells(x, 2) And ((Cells(y, 3) < Cells(x, 4) And Cells(y, 3) >= Cells(x, 3)) Or (Cells(y, 4) <= Cells(x, 4) And Cells(y, 4) > Cells(x, 3))) Then
Cells(x, 3).Interior.ColorIndex = 6
Cells(x, 4).Interior.ColorIndex = 6
Cells(y, 3).Interior.ColorIndex = 6
Cells(y, 4).Interior.ColorIndex = 6
Else
End If
Next
Next

跳转到最佳答案楼层

森林狼

  Range("C2:D60000").Interior.ColorIndex = xlNone
  
  Dim x, y
For x = 2 To Range("a65536").End(xlUp).Row
For y = x + 1 To Range("a65536").End(xlUp).Row
If Cells(y, 2) = Cells(x, 2) And ((Cells(y, 3) < Cells(x, 4) And Cells(y, 3) >= Cells(x, 3)) Or (Cells(y, 4) <= Cells(x, 4) And Cells(y, 4) > Cells(x, 3))) Then
Cells(x, 3).Interior.ColorIndex = 6
Cells(x, 4).Interior.ColorIndex = 6
Cells(y, 3).Interior.ColorIndex = 6
Cells(y, 4).Interior.ColorIndex = 6
Else
End If
Next
Next