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
不过不太理解为什么要用两个市场的股价对齐，
对比的话也应该是一个某个市场的股价分析得出结论再与另一个对比= =