Excel VBA字符串拆分：将时间戳转换为MM/DD/YYYY格式问题求助

原代码问题分析 #

你提供的ReturnNthElement函数无法正常运行的原因有两点：

1. 分隔符错误：函数用逗号","分割字符串，但你的目标字符串是通过空格分隔的，应该用空格作为分割符。
2. 逻辑不匹配：该函数仅提取单个分割元素，而你需要提取多个元素组合成日期部分，因此逻辑不符合需求。

VBA解决方案（推荐） #

以下是可以直接使用的VBA函数，既能提取日期字符串，也能转换为MM/DD/YYYY格式：

Function ExtractAndFormatDate(CellRef As Range) As String
    Dim rawStr As String
    Dim dateParts() As String
    Dim dateStr As String
    Dim formattedDate As Date
    
    rawStr = CellRef.Value
    dateParts = Split(rawStr, " ")
    
    ' 提取日期核心部分：月份、日期、年份（对应分割后的第3、4、6个元素，索引从0开始）
    dateStr = dateParts(2) & " " & dateParts(3) & " " & dateParts(5)
    
    ' 尝试转换为标准日期格式，失败则返回原始日期字符串
    On Error Resume Next
    formattedDate = DateValue(dateStr)
    If Err.Number = 0 Then
        ExtractAndFormatDate = Format(formattedDate, "m/d/yyyy")
    Else
        ExtractAndFormatDate = dateStr
    End If
    On Error GoTo 0
End Function

用法：在Excel单元格中输入=ExtractAndFormatDate(A1)（假设目标字符串位于A1单元格），即可得到7/22/2024格式的日期；若日期转换失败，会自动返回Jul 22 2024格式的字符串。

无VBA的Excel公式方案（适用于Excel 365及以上） #

如果不想使用VBA，可以用内置公式实现：

=IFERROR(TEXT(DATEVALUE(TEXTJOIN(" ",TRUE,TEXTSPLIT(A1," "),,3,4,6)),"m/d/yyyy"),TEXTJOIN(" ",TRUE,TEXTSPLIT(A1," "),,3,4,6))

原理：

1. TEXTSPLIT(A1," ")：将字符串按空格分割为数组。
2. TEXTJOIN(" ",TRUE,...)：提取数组中第3、4、6个元素（对应月份、日期、年份）并拼接成日期字符串。
3. DATEVALUE：将拼接后的字符串转换为日期值。
4. TEXT：将日期值格式化为MM/DD/YYYY格式。
5. IFERROR：若转换失败，直接返回拼接后的日期字符串。

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