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

4821

收藏 2012-03-06

我需要匹配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

扫码加我拉你入群

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

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

全部回复

yunfeidaxia

2012-3-6 18:00:33

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

扫码加我拉你入群

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

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

伊莎贝拉11

2012-3-6 18:14:37

可以使用筛选处理的吧

扫码加我拉你入群

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

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

卧龙小九

2012-3-6 18:46:55

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

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

扫码加我拉你入群

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

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

yunfeidaxia

2012-3-7 08:15:44

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

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

扫码加我拉你入群

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

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

jiulaiyichi

2012-3-7 10:23:52

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是样本量，自己改改，运行后第五第六列输出结果，有问题再找我。

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群