弄一个按钮,修改_Sortkey列的值即可。
For Each r As Row In Tables("表A").Rows r.DataRow.BaseRow("_Sortkey") = r.IndexNextTables("表A").Save