跨工作簿查询汇总

xiaoyuemt

在结束之前加段排序的代码就行了
With Sheets(Sheets.Count)
    m = .Range("F1048576").End(xlUp).Row
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("F2:F" & m), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With .Sort
        .SetRange Range("A2:G" & m)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With

ykcbf1100

遇到同行了？我也来参与一下。

测试通过。