Bir raporda artan sırada bilgileri görüntülemek için bir makro almaya çalışıyorum

Question

Neden bunun ters gittiğinden emin değilim, bazı nedenlerle çalışmaz! Herhangi bir fikir? Sadece yapıştırılmış olanı almak istiyorum ve en az sayıya kadar artan düzende olduğundan emin olmak istiyorum.

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

Answer 1

Sana entire column sıralama ve veri aralığının sonunu tanımlayan olmadığını Karşılaştığınız sorun olduğunu düşünüyorum.

aşağıya bakın: Eğer XL 2007 veya daha varsa

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 

, bu gitmek için bir yol olabilir:

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