如何对文件中的日期进行排序，以使链接文件中的数据保持链接到已排序的数据Excel VBA

Question

我试图获取按日期顺序排序的testfile1中的数据，并且链接到testfile1的文件中的数据随之“移动”。 testfile1有3列。列A包含随机订购日期。 B和C列分别包含与A列中的日期相关的描述和值。当前设置为6行随机日期（第3至8行），以及相关列中的描述和值。

testfile2 also contains 3 columns, but only 2 Rows.
'Column A, Row 1 is =[testfile 1.xlsx]Sheet1'!$A$5
'Column B, Row 1 is =[testfile 1.xlsx]Sheet1'!$B$5 and
'Column C, Row 1 is =[testfile 1.xlsx]Sheet1'!$C$5
'Row 2 contains =[testfile 1.xlsx]Sheet1'!$A$8,       ' 
[testfile1.xlsx]Sheet1'!$B$8 and =[testfile 1.xlsx]Sheet1'!$C$8 in         Columns 'A to C respectively

sub macro1()
Range("A2:C7").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add    Key:=Range("A2"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Sheet1").Sort
    .SetRange Range("A2:C7")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

我需要能够将testfile1中的数据按日期顺序（A列）进行排序，并使testfile2中的数据与testfile1中数据的新位置相关。

我已经尝试过[testfile 1.xlsx] Sheet1'！$ A $ 4，$ A4，A $ 4的所有组合，以及testfile2中普通的A4。在每种情况下，testfile2中的数据都继续与原始位置相关，包括“命名”行数据。 结果：

出来像这样： 如您所见，公式保持不变，现在引用了不正确的数据。

我确实早些时候找到了一个链接（在stackoverflow中），该链接建议使用Index and Match，但最初我不理解该语法，因此无法使其正常工作。从那以后我就睡了，我想！！我知道我做错了。但是，我没有记下建议的语法，现在找不到了。帮助！！！