请问用excel软件如何使不同日期的数据对齐？

比如股市之间由于节假日的不同交易日期有所不同，如何将同一天的数据对齐，将一个市场单独交易的数据删除？例如下面这一组数据，如何处理，我用了高级筛选，没做出来，

2014/5/7	2.38		2014/4/29	2158.47
2014/5/8	2.39		2014/4/30	2158.66
2014/5/9	2.4		2014/5/5	2156.47
2014/5/12	2.42		2014/5/6	2157.33
2014/5/13	2.43		2014/5/7	2137.32
2014/5/14	2.43		2014/5/8	2135.5
2014/5/15	2.44		2014/5/9	2133.91
2014/5/16	2.45		2014/5/12	2180.05
2014/5/19	2.44		2014/5/13	2174.85
2014/5/20	2.45		2014/5/14	2172.37
2014/5/21	2.46		2014/5/15	2144.08
2014/5/22	2.46		2014/5/16	2145.95
2014/5/23	2.47		2014/5/19	2115.14
2014/5/26	2.46		2014/5/20	2115.77
2014/5/27	2.47		2014/5/21	2135.91
2014/5/28	2.48		2014/5/22	2130.87
			2014/5/23	2148.41
			2014/5/26	2155.98
			2014/5/27	2147.28
			2014/5/28	2169.35

Sub Macro1()
    Dim MyPath$, MyName$, arr, sh As Worksheet, d As Object, i&
    Set d = CreateObject("scripting.dictionary")
    MyPath = ThisWorkbook.Path & "\"
    MyName = Dir(MyPath & "*.xls")
    Application.ScreenUpdating = False
    Do While MyName <> ""
        If MyName <> ThisWorkbook.Name Then
            With Workbooks.Open(MyPath & MyName)
                With .Sheets(1)
                    arr = .Range(.[a1], .[IV1].End(1))
                End With
                For i = 2 To UBound(arr, 2)
                    d(arr(1, i)) = i
                Next
                For Each sh In .Sheets
                    If sh.Name <> .Sheets(1).Name Then
                        With sh
                            With .Range("A1").CurrentRegion
                                arr = .Value
                                .Offset(0, 1).ClearContents
                            End With
                            For i = 2 To UBound(arr, 2)
                                .Cells(1, d(arr(1, i))).Resize(UBound(arr)) = WorksheetFunction.Index(arr, 0, i)
                            Next
                        End With
                    End If
                Next
                .Close True
            End With
            d.RemoveAll
        End If
        MyName = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "完毕"
End Sub

输入公式
=VLOOKUP(D1,$A$1:$B$16,2,0)
说明：$A$1:$B$16要绝对引用

需要请联系QQ：1298997509

支持2楼用vlookup
不过不太理解为什么要用两个市场的股价对齐，
对比的话也应该是一个某个市场的股价分析得出结论再与另一个对比= =