数学建模社区-数学中国

标题: 需要从两列时间序列筛选出相同日期的数据，怎么办？ [打印本页]

---

作者: 23186tyfkj    时间: 2016-6-29 17:43
标题: 需要从两列时间序列筛选出相同日期的数据，怎么办？

---

作者: 我可以叫什么    时间: 2016-6-29 17:56
Sub 找相同()
arr = Sheet1.[a1].CurrentRegion
brr = Sheet1.[d1].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
[g2].Resize(UBound(crr), 4) = crr
End Sub

---

作者: data-science    时间: 2016-7-3 14:11
我爱人生，所以我愿像一个狂信者那样投身到生命的海里。

---

作者: 桐花万里    时间: 2016-7-4 20:47
哇哦，哇哦，好厉害，大赞大赞

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5