利用Excel宏实现特定列字符串的精确提取

首先，在Excel中启用宏功能，可以通过按快捷键ALT+F11或者通过菜单栏选择‘开发工具’->‘宏’来打开VBA编辑器。

接着，将以下VBA代码复制到宏编辑器中：

Sub ExtractSpecificString()
    Dim i As Integer
    Dim parts() As String
    Dim dateParts() As String
    Dim totalLength As Integer
    Dim dateLength As Integer
    
    For i = 2 To 20000
        parts = Split(Cells(i, 6).Value, "_")
        totalLength = UBound(parts) - LBound(parts) + 1
        
        If (totalLength > 1) Then
            dateParts = Split(parts(1), ".")
            dateLength = UBound(dateParts) - LBound(dateParts) + 1
            
            If (dateLength <2) Then
                Cells(i, "G").Value = parts(1)
            End If
        End If
    Next i
End Sub

该宏的功能是从第6列（F列）的每个单元格中，基于下划线（_）分隔符提取字符串，并检查第二个部分是否为日期格式（假设日期格式包含两个或更多点）。如果不是日期，则将其值输出到同一行的第7列（G列）。

最后，保存并关闭VBA编辑器，返回Excel界面，通过运行此宏来执行字符串提取任务。这将帮助用户快速处理大量数据，提高工作效率。