我試圖讓一個宏在報告中以升序顯示信息

Question

我不確定這是怎麼回事，它不會工作的原因！有任何想法嗎？我只是想要粘貼什麼，並確保它按照數量上升到最小。

'Range("A:N").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _ 
    'xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
    'DataOption1:=xlSortTextAsNumbers 

Answer 1

我想你所遇到的問題是，你是排序entire column，而不是定義數據範圍的結束。

見下文：

Dim ws as Worksheet 
Set ws = Worksheets("Sheet1") 'change as needed 

With ws 

    Dim lRow as Long 
    lRow = .Range("A" & .Rows.Count).End(xlUp).Row 

    .Range("A1:N" & lRow).Sort Key1:=.Range("A1:A" & lRow), _ 
     Order1:=xlAscending, Header:= xlGuess, OrderCustom:=1, _ 
     MatchCase:=False, Orientation:=xlTopToBottom, _ 
     DataOption1:=xlSortTextAsNumbers 

End With 

如果你有XL 2007或更高，這可能是要走的路：

Dim ws as Worksheet 
Set ws = Worksheets("Sheet1") 'change as needed 

With ws 

    Dim lRow as Long 
    lRow = .Range("A" & .Rows.Count).End(xlUp).Row 

    With .Sort 

     With .SortFields 

      .Clear 
      .Add Key:=.Range("A1:A" & lRow), SortOn:=xlValues, _ 
       Order:=xlAscending, DataOption:=xlSortNormal 
     End With 

     .SetRange .Range("A1:N" & lRow) 
     .Header = xlGuess 
     .MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 
     .Apply 

    End With 

End With