VBA를 사용하여 Excel에서 범위 정렬

Question

몇 가지 비슷한 예가 있지만 작동하지는 않습니다. 엑셀 2013, 내가 헤더를 사용하지 않아도 사무실 365

' Sort the "URLs" worksheet after update 
Worksheets("URLs").Activate 
lngLastRow = Cells(65536, Range.Column).End(xlUp).Row 
Set Range = Worksheets("URLs").Range("A3:E" & lngLastRow) 

Worksheets("URLs").Sort.SortFields.Clear 
Worksheets("URLs").Sort.SortFields.Add Key:=Range("B4:B" & lngLastRow), _ 
    SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal 
Worksheets("URLs").Sort.SortFields.Add Key:=Range("A4:A" & lngLastRow), _ 
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
With Worksheets("URLs").Sort 
    .SetRange Range("A3:E" & lngLastRow) 
    .Header = xlYes 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 

, (범위 ("A3")에 "A4"로 변경) 및 수동으로 종료 범위 (대신 lngLastRow의 "33")를 사용하여 I "런타임 오류 '5': 잘못된 프로 시저 호출 또는 인수"오류가 발생합니다.

레코더를 사용하여이 매크로를 만들었습니다. 왜 기록 된 매크로가 매크로에서 작동하지 않을지 모르겠다.

나는 ": ="을 (를) 사용하여 아무 것도 얻지 못했습니다. 나는 항상 그 문제를 해결해야만했지만,이 경우에도 그 사실을 이해할 수는 없습니다.

Answer 1

이 시도 :

' Sort the "URLs" worksheet after update 
Sub Macro1() 
    Worksheets("URLs").Activate 
    Dim Range As Range 
    Dim lngLastRow As Long 
    lngLastRow = Worksheets("URLs").Range("A1048576").End(xlUp).Row 
    Set Range = Worksheets("URLs").Range("A3:E" & lngLastRow) 

    Worksheets("URLs").Sort.SortFields.Clear 
    Worksheets("URLs").Sort.SortFields.Add Key:=Worksheets("URLs").Range("B4:B" & lngLastRow), _ 
     SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal 
    Worksheets("URLs").Sort.SortFields.Add Key:=Worksheets("URLs").Range("A4:A" & lngLastRow), _ 
     SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
    With Worksheets("URLs").Sort 
     .SetRange Worksheets("URLs").Range("A3:E" & lngLastRow) 
     .Header = xlYes 
     .MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 
     .Apply 
    End With 
End Sub