我想比较行中的每个日期,取最高的,按最接近的对它们进行排序,然后对这些值做同样的事情。
这是我的代码
Sub Intersection()
Dim nombre As Integer
Dim tableauDate(1 To 130) As Date
Dim tableauValeur(1 To 130) As String
Dim incrementeurForeach As Integer
nombre = 115
incrementeurForeach = 1
For incrementeur = 0 To nombre
If Range("A" & incrementeur).Value = Range("C" & incrementeur).Value Then
tableauDate(incrementeur) = Range("A" & incrementeur).Value
If Range("B" & incrementeur).Value > Range("D" & incrementeur).Value Then
tableauValeur(incrementeur) = Range("B" & incrementeur).Value
Else
tableauValeur(incrementeur) = Range("D" & incrementeur).Value
End If
Else
If Range("A" & incrementeur).Value > Range("C" & incrementeur).Value Then
tableauDate(incrementeur) = Range("A" & incrementeur).Value
Else
tableauDate(incrementeur) = Range("C" & incrementeur).Value
End If
End If
Next incrementeur
For Each valeur In tableauDate
Range("A", incrementeurForeach).Value = tableauDate(incrementeurForeach)
Range("B", incrementeurForeach).Value = tableauValeur(incrementeurForeach)
incrementeurForeach = incrementeurForeach + 1
Next valeur
End Sub
还有桌子的一部分
A B C D
1 Date A Prix A Date B Prix B
2 2000-01-31 34,84 $ 2000-01-31 48,07 $
3 2000-05-31 29,22 $ 2000-02-29 39,15 $
4 2000-06-30 29,00 $ 2000-03-31 43,46 $
5 2000-07-31 30,25 $ 2000-04-30 43,62 $
6 2000-08-31 33,27 $ 2000-05-31 47,27 $
非常感谢您的帮助