Sub 排序() Range("a1:d6").Copy Range("g1").PasteSpecial xlPasteValuesAndNumberFormats Range("g1:j6").Sort key1:=Range("j2"), order1:=xlDescending, Header:=xlYes End Sub
Sub 排序() Range("d1:g6").Copy Range("j1").PasteSpecial xlPasteValuesAndNumberFormats Range("j1:m6").Sort key1:=Range("m2"), order1:=xlDescending, Header:=xlYes End Sub