需要从两列时间序列筛选出相同日期的数据,怎么办?
Sub 找相同()
arr = Sheet1..CurrentRegion
brr = Sheet1..CurrentRegion
ReDim crr(1 To UBound(arr), 1 To 4)
m = 1
For i = 2 To UBound(arr)
For j = 2 To UBound(brr)
If brr(j, 1) = arr(i, 1) Then
crr(m, 1) = arr(i, 1)
crr(m, 2) = arr(i, 2)
crr(m, 3) = brr(j, 1)
crr(m, 4) = brr(j, 2)
m = m + 1
End If
Next
Next
.Resize(UBound(crr), 4) = crr
End Sub
我爱人生,所以我愿像一个狂信者那样投身到生命的海里。
哇哦,哇哦,好厉害,大赞大赞
页:
[1]