数学建模社区-数学中国»论坛 › 【数模论坛】资源分类 › 数模问题互助 › 需要从两列时间序列筛选出相同日期的数据，怎么办？

查看: 2179|回复: 3

[问题求助] 需要从两列时间序列筛选出相同日期的数据，怎么办？

[复制链接]

字体大小: 正常放大

23186tyfkj

28 主题	14 听众	155 积分

升级 27.5%

TA的每日心情

	开心 2016-8-12 09:42

签到天数: 26 天

[LV.4]偶尔看看III

自我介绍: ih

群组: 2015司守奎matlab培训

群组: 2016国赛备战群组

电梯直达

1^#

发表于 2016-6-29 17:43 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

zan

转播0 淘帖0 分享0 收藏0 支持0 反对0 微信

使用道具举报

我可以叫什么

2088 主题	31 听众	3238 积分

TA的每日心情

	奋斗 2016-11-10 17:20

签到天数: 102 天

[LV.6]常住居民II

自我介绍: 很烦呀

群组: 2013年电工杯B题讨论群

群组: 2013电工杯A题讨论群组

群组: 数学中国第二期SAS培训

群组: 2016美赛交流群组

2^#

发表于 2016-6-29 17:56 |只看该作者 |招呼Ta 关注Ta

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