excel同一列如何按日期提取日期下数据？

Question

如图，有大哥教一教么？

Answer 1

Sub 日期()
Dim i, k
For k = 8 To 9
X = WorksheetFunction.Match(Cells(1, k), Range("e:e"), 0)
Z = WorksheetFunction.Match(Cells(1, k + 1), Range("e:e"), 0)
Range(Cells(X + 1, "E"), Cells(Z - 1, "E")).Copy Cells(2, k)
Next
Range(Cells(Z + 1, "E"), Cells(Range("e65536").End(xlUp).Row, "E")).Copy Cells(2, k)
End Sub

Answer 2

Sub 按日期拆分成多列()
Dim Arr, Brr(1 To 999, 1 To 99), i&, j&, k&, Jm&
Arr = [e1:e22]
For i = 1 To UBound(Arr)
If TypeName(Arr(i, 1)) = "Date" Then
j = 1: k = k + 1: Brr(j, k) = Arr(i, 1)
Else
j = j + 1: Brr(j, k) = Arr(i, 1)
If j > Jm Then Jm = j
End If
Next i
[G1].Resize(Jm, k) = Brr
End Sub
用这样的代码处理。