小编War*_*dos的帖子

我有一列数据，它由两个元素组成（作为字符串输入）。

3/20/2016 6:30:55 PM
3/12/2016 8:15:45 PM
3/8/2016 1:25:18 AM

我想将一个变量设置为等于上面提到的字符串日期部分的 DateSerial。

我不想将数据分开并将其驻留在单独的列中。我希望保持格式不变。

我将加载一个包含表中所有数据（多列）的数组，但我希望该数组按日期进行索引。我将对数组运行快速排序，然后对排序后的数组进行一些额外的交叉引用。但是，我无法使用实际数据集进入这些阶段，因为我被困在日期问题上。

给定源数据的格式，如何按日期索引？

Dim d as Date
Dim arTemp
Dim arTemp1
Dim WS As Worksheet
Dim list As Object, list1 As Object
Dim RowCount as Integer, y As Integer

Set list = CreateObject("System.Collections.SortedList")
Set list1 = CreateObject("System.Collections.SortedList")

For Each WS In WorkSheets
    With WS
        For RowCount = 7 to 207
            'Works perfectly if the data in Column 1 is actually a date
            d = DateSerial(Year(.Cells(RowCount, 1)), Month(.Cells(RowCount, 1)), …