VBA咨询，excel中相同数据匹配

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我需要匹配excel中的相同日期的数据，类似于下面的，第一列和第二列是对应的数据。第三和第四是对应的数据。现在想将第二和第四列中时间相同数据(比如说10-18日的数据）放在一起进行处理。各位高手有没有什么好方法啊？我现在是在一个一个的删除，比如将17号的删除，之后再将20号的删除。在VBA中是否可以实现这种？
望不吝赐教，谢谢。。



  2005/10/14      2.215      2005/10/14        22.48  
2005/10/17       2.2188     2005/10/18       22.85
2005/10/18       2.245       2005/10/19        22.6
2005/10/19       2.26         2005/10/21        21.73
2005/10/20        2.245      2005/10/22         21.9
2005/10/21         2.235      2005/10/25         21.45

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL 数据匹配 xcel exce cel 咨询 数据 excel

结合工作表函数match或find，通过循环可以逐个将不在第三列出现的日期从第一列删除

可以使用筛选处理的吧

yunfeidaxia 发表于 2012-3-6 18:00
结合工作表函数match或find，通过循环可以逐个将不在第三列出现的日期从第一列删除

你好，能耽误你点时间吗？帮忙简单编写下程序，十分感激

卧龙小九 发表于 2012-3-6 18:46
你好，能耽误你点时间吗？帮忙简单编写下程序，十分感激

你可以采用录制宏的方法解决

Sub choosedata()
Dim i, j, k
k = 0
For i = 1 To 888
For j = 1 To 888
  If Sheet1.Cells(i, 1) = Sheet1.Cells(j, 3) Then
  k = k + 1
  Sheet1.Cells(k, 5) = Sheet1.Cells(i, 1)
  Sheet1.Cells(k, 6) = Sheet1.Cells(i, 2)
  End If
Next j
Next i
End Sub
在表格前四列放数据，格式和你帖子里的一致，将以上代码粘入VBA模块，里面的888是样本量，自己改改，运行后第五第六列输出结果，有问题再找我。