Excel 2010 - 具有LIST的单元格未排序

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

在列LI中有一个包含5个代码的下拉列表。 当我将一个单元格添加到文件的底部时，它在列L中有下拉列表。一旦我对它进行排序（使用上面的宏），该行不再在列L中有一个下拉列表。是否有不同的方式我应该整理？

我正在根据B列的内容（这是一个姓氏）对A列到P列进行排序。

Answer 1

这是因为数据验证适用于单元本身，而不适用于单元中的值; 因此，在对值进行排序时，数据验证仍适用于原始单元格。 最简单的修复可能是通过选择整列并创建验证规则将数据验证列表添加到整个列L - 这是一个选项吗？