将excel vba中的日期时间列拆分为两个单独的列，会根据dd部分是否大于12而产生不同的结果。

Sub SplitDateTime()
    Dim rng As Range
    Dim cell As Range
    Dim dateTimeArr() As String
    Dim datePart As Date
    Dim timePart As Date
    Dim ampm As String
    
    ' 选中需要拆分的日期时间列
    Set rng = Selection
    
    ' 循环处理每个单元格
    For Each cell In rng
        ' 使用Split函数将日期和时间分开
        dateTimeArr = Split(cell.Value, " ")
        
        ' 将日期部分转换为日期值
        datePart = DateValue(dateTimeArr(0))
        
        ' 将时间部分转换为时间值
        timePart = TimeValue(dateTimeArr(1))
        
        ' 判断日期部分的dd是否大于12
        If Day(datePart) > 12 Then
            ampm = "下午"
        Else
            ampm = "上午"
        End If
        
        ' 在相邻的两列中分别显示日期和时间
        cell.Offset(0, 1).Value = datePart
        cell.Offset(0, 2).Value = timePart
        
        ' 在另一个列中显示上午或下午
        cell.Offset(0, 3).Value = ampm
    Next cell
End Sub