レポートで昇順に情報を表示するマクロを取得しようとしています

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