代码怎么改？

adasa

怎么调整数据的顺序，附件有效果

山菊花

Sub test()
    Dim arr, brr(), d As Object, i As Long, j As Long, m As Long
   
    Set d = CreateObject("scripting.dictionary")
   
    d("序号") = 1
    d("字段1") = 4
    d("字段3") = 3
    d("字段6") = 2
   
   
    arr = Sheets(1).UsedRange
   
   
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    For j = 1 To UBound(arr, 2)
        If d.Exists(arr(1, j)) Then
            m = d(arr(1, j))
            For i = 1 To UBound(arr)
                brr(i, m) = arr(i, j)
            Next
        End If
    Next
   
   [k6].Resize(UBound(brr), UBound(brr, 2)) = brr
   
   
End Sub

adasa

山菊花 发表于 2019-12-13 08:53
Sub test()
    Dim arr, brr(), d As Object, i As Long, j As Long, m As Long
   

谢谢，就是这个效果