Question

【VBA 数据筛选】 用VBA 筛选每分钟对应的时间数据。

在下图中，我要筛选出每一分钟末的价格，已经用黄色表格和红色标出来了。这张表的名字叫“表1”，只有A列（时间）和B列（价格）。 我想用VBA 编程 把数据导出来到“表2”的A1格。

注意：我的数据每一分钟都有价格。但是有的可能不会出现在分钟尾部。比如在下图9:03:15 ，这样的数据我也要。

也就是说，我最后生成导出的数据是每一分钟都有价格的，不会出现分钟断点。

请问高手给出VBA代码！求 指点！ 好的代码可以另外加分。！！！
谢谢！！！





Answer 1

Sub aa()
Dim a As Integer
Dim b As Integer
Dim i As Integer
Dim e As String
Dim f As String
Dim c As String
Dim d As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
c = [a65536].End(xlUp).Row
For i = 2 To c - 1
e = Cells(i, 1)
f = Cells(i + 1, 1)
a = Right(e, 2)
b = Right(f, 2)
c = Right(e, 4)
d = Right(f, 4)
If a > b Or c < d Then
Range(Cells(i, 1), Cells(i, 2)).Select
Selection.Copy
Sheets("表2").Select
d = [a65536].End(xlUp).Row
Cells(d + 1, 1).Select
ActiveSheet.Paste
Sheets("表1").Select
End If
Next
End Sub
试下吧 亲 有问题再 HI

Answer 2

直接贴上数据，点控件就行。

追问

谢谢您的的代码。是这样的，我要每分钟靠近末尾的价格。然后， 每分钟一个价格就可以了....

这样的话，最后得到的是每一分钟对应的一个价格。

追答

我的代码能满足，只要你的时间是排序好的就行。庄兄弟的逻辑是错误的，导致一分钟多次取值。

Answer 3

你的时间是按顺序的，且每分钟都会有数据，是吗？

我的代码可以根据你的实际数据时间自动提取不同的每分钟最终值

Answer 4

占位思考.

追问

谢谢！ 慢工出细活儿~