VBA按输入框日期排序问题排查求助

嘿，我看到你贴的代码没写完，但能猜到你想实现「输入指定日期后，在Log工作表里按日期排序」的功能，而且你已经确认了日期格式和搜索列没问题，但就是没效果。咱们一步步来排查和修正：

首先，你的代码核心逻辑缺失 #

你贴的代码到Worksheets("Log"...就中断了，这肯定没法运行——排序的关键逻辑根本没写进去。先给你补全并优化完整的代码，你可以根据实际需求调整：

Sub Sortbydate()
    Dim inputDate As Variant
    Dim targetDate As Date
    Dim wsLog As Worksheet
    Dim lastRow As Long
    Dim sortRange As Range
    
    ' 获取输入日期并校验格式
    inputDate = InputBox("Enter Date, FORMAT: MM-DD-YY")
    If Not IsDate(inputDate) Then
        MsgBox "请输入正确的日期格式（MM-DD-YY）！", vbExclamation
        Exit Sub
    End If
    targetDate = CDate(inputDate)
    
    ' 保留你原有写入日期的逻辑
    ActiveSheet.Range("C16").Value = targetDate
    Sheets("FIND RECORDS").Range("D16").Value = targetDate
    
    ' 引用目标工作表
    Set wsLog = ThisWorkbook.Worksheets("Log")
    
    ' 找到日期列的最后一行数据（假设日期在A列，改成你实际的列）
    lastRow = wsLog.Cells(wsLog.Rows.Count, "A").End(xlUp).Row
    
    ' 定义要排序的完整数据范围（表头在第1行，数据到lastRow，Z列改成你数据的最后一列）
    Set sortRange = wsLog.Range("A1:Z" & lastRow)
    
    ' 执行按日期排序
    With wsLog.Sort
        .SortFields.Clear ' 清空之前的排序规则
        ' 指定排序的关键字列（这里是A列，改成你的日期列，比如C列就写"C2:C" & lastRow）
        .SortFields.Add2 Key:=wsLog.Range("A2:A" & lastRow), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange sortRange ' 设置排序范围
        .Header = xlYes ' 如果你的数据没有表头，改成xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply ' 应用排序
    End With
    
    MsgBox "已按指定日期完成排序！", vbInformation
End Sub

重点排查这几个可能的坑 #

哪怕格式看起来对，排序也可能失效，你可以逐一检查：

• 日期列是文本类型而非真正的日期：选中日期单元格，看Excel底部状态栏显示的是「日期」还是「文本」。如果是文本，选中整列→「数据」选项卡→「分列」→连续点两次下一步→「列数据格式」选「日期（MDY）」→完成，把文本转成真正的日期类型。
• 排序的关键字列选错了：把代码里Key:=wsLog.Range("A2:A" & lastRow)的列改成你实际的日期列（比如你的搜索列是C列，就改成"C2:C" & lastRow）。
• 排序范围没覆盖全数据：确认sortRange = wsLog.Range("A1:Z" & lastRow)里的Z列是你数据的最后一列，避免漏排部分内容。

如果你的需求是「筛选出指定日期再排序」 #

要是你想先筛选出输入日期的记录，再排序，可以在代码里添加筛选逻辑（放在引用wsLog之后）：

' 筛选日期列（Field是列的序号，比如A列是1，C列是3）
wsLog.Range("A1:Z" & lastRow).AutoFilter Field:=1, Criteria1:=targetDate

内容的提问来源于stack exchange，提问作者ladymrt