将数组赋予EXECL时，如何删除重复项！

Question

数组中的内容如下：
2007年3月26日
2007年3月26日
2007年3月26日
2007年3月29日
2007年3月29日
2007年3月29日
2007年3月30日
2007年3月30日
2007年3月30日
要求导出到EXECL后删除重复项，但保留空行。
日期
2007年3月26日
2007年3月29日
2007年3月30日

Answer 1

先删除数据组的重复项，再导入到Excel中

Answer 2

Private Sub Command1_Click()
   On Error Resume Next
    Dim str(6) As String
    Dim colXx As New Collection
    Dim intLoop As Integer
    
    '//Initial Key
    str(0) = "20070326"
    str(1) = "20070326"
    str(2) = "20070326"
    str(3) = "20070329"
    str(4) = "20070329"
    str(5) = "20070328"
    str(6) = "20070330"
    For intLoop = 0 To 6
      colXx.Add str(intLoop), str(intLoop)
    Next
    For intLoop = 0 To colXx.Count
       Debug.Print colXx.Item(intLoop)
    NextEnd Sub