엑셀 2010 - LIST와 셀 I 세포를 정렬하려면 다음 코드를 사용하고

Question

정렬되지 않습니다

Sub RecordSort() 

Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
ActiveSheet.Unprotect Password:="password" 

Dim lastrow As Long 
Dim ws As Worksheet 
lastrow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 

ActiveSheet.Sort.SortFields.Clear 
ActiveSheet.Sort.SortFields.Add Key:=Range(_ 
    "B3:B" & lastrow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ 
    xlSortNormal 

With ActiveSheet.Sort 
    .SetRange Range("A3:P" & lastrow) 
    .Header = xlGuess 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 

ActiveSheet.Protect Password:="password" 
Application.ScreenUpdating = True 
Application.DisplayAlerts = True 

Range("A3").Select 
End Sub 

열 L에서 나는 5 개 코드로 드롭 다운 목록이 있습니다. 파일의 맨 아래에 셀을 추가 할 때 L 열에 드롭 다운이 있습니다. 위의 매크로를 사용하여 정렬하면 L 열에 드롭 다운 목록이 없습니다. 다른 방법이 있습니까? 나는 정렬해야합니까?

나는 열 B의 내용 (성)을 기준으로 열 A부터 P까지를 정렬합니다.

Answer 1

데이터 유효성 검사가 셀 자체의 값이 아니라 셀 자체에 적용되기 때문입니다. 따라서 값을 정렬 할 때 데이터 유효성 검사는 원래 셀에 계속 적용됩니다. 가장 쉬운 방법은 전체 열을 선택하고 유효성 검사 규칙을 작성하여 전체 열 L에 데이터 유효성 검사 목록을 추가하는 것입니다.