求助截取字段

言明

求助截取字段，，
单元格有完整的物流信息，其中安排出车会出现1-3次，，需截取时间最早的一次
因是重复字段，，，公式有些繁琐还请老师帮忙看看vba可否实现。现实环境数据量大概每天3万左右。。。谢谢



祝大家新年快乐，，2023大
谢谢版主通过审核并建议

A列是完整物流信息，以时间为节点，显示物流操作动作，如某营业部完成收寄，到处理中心，到航班信息，最终是签收或者退回等

其中
到安排出车（主要截取该操作动作的时间节点）注：安排出车至少出现1次，可能会出现3次，原因是收件人有可能不在家，但最多安排三次，需要截取时间最早的安排出车节点。

物流完整信息，是通过软件抓取系统数据，，，

谢谢诸位老师
B2-B9是达到的效果（B9以下空白单元格没有操作）D列是请教老师的公式，但有些特殊情况未能全部额截取。

liulang0808

建议楼主结合附件内容，具体描述下处理原则

tanglf188

你抓取的时候能不能事件升序呢，这样的话就简单多了，现在也能处理就是繁琐一点。

grf1973

字符串可以直接比较。

tanglf188

Sub test()
    If MsgBox("运行代码需要一定时间；" & Chr(10) & "继续提取请按确定(结束会有提示)，退出按取消。", 33, "提示信息") = vbCancel Then Exit Sub
    T = Timer
    isall = 1 '提取方式参数，当值为1时，提取所有日期时间，其它任意值提取最早日期时间
    Application.ScreenUpdating = False
    Sheet1.Columns("D:F").ClearContents
    For i = 2 To Sheet1.Range("A" & Rows.Count).End(xlUp).Row
        stri = Sheet1.Range("A" & i)
        k = 4
        Do
            dip = InStr(stri, Chr(10))
            If dip > 0 Then
                st1 = Mid(stri, 1, dip)
                If InStr(st1, "安排出车") > 0 Then
                    sj = FormatDateTime(Mid(st1, 1, 19))
                    With Sheet1.Cells(i, k)
                        .Value = sj
                        .NumberFormatLocal = "yyyy/m/d h:mm:ss" '显示格式
                        .Columns.AutoFit '自动列宽
                    End With
                    If isall = 1 Then k = k + 1
                End If
                stri = Mid(stri, dip + 1, Len(stri))
            Else
                If Len(stri) > 0 Then
                    If InStr(stri, "安排出车") > 0 Then
                        sj = Mid(stri, 1, 19)
                        With Sheet1.Cells(i, k)
                            .Value = sj
                            .NumberFormatLocal = "yyyy/m/d h:mm:ss" '显示格式
                            .Columns.AutoFit '自动列宽
                        End With
                    End If
                    stri = ""
                End If
            End If
            If stri = "" Then Exit Do
        Loop
    Next
    Application.ScreenUpdating = True
    MsgBox "一共用时：" & Format(Timer - T, "#0.00") & " 秒", , "提取完毕!"
End Sub

ykcbf1100

代码写好，却发现求助帖没有了。

tanglf188

第一次发的看不见，再发一次

554700056

grf1973 发表于 2023-1-5 11:16
字符串可以直接比较。

厉害，学习了！

554700056

ykcbf1100 发表于 2023-1-5 12:57
代码写好，却发现求助帖没有了。

倒着查找，妙啊！