末試過,但如我所料不完全工作。 Public Sub sSortColumn(wsName As Worksheet) With wsName.Sort With .SortFields .Clear .Add Key:=Range("A:A") ...
確定! 回上一頁