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

在Excel VBA中，将日期时间列拆分为两个单独的列可以通过以下步骤实现：

首先，选中需要拆分的日期时间列。
使用VBA的Split函数将日期和时间分开。Split函数可以根据指定的分隔符将字符串拆分为一个数组。
创建一个新的列，用于存储日期部分。使用VBA的DateValue函数将日期字符串转换为日期值，并将其放入新列中。
创建另一个新的列，用于存储时间部分。使用VBA的TimeValue函数将时间字符串转换为时间值，并将其放入新列中。
使用VBA的If语句判断日期部分的dd是否大于12。如果大于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

这段代码将选中的日期时间列拆分为日期、时间和上午/下午三列，并根据日期部分的dd是否大于12来确定上午或下午。

对于Excel VBA中的日期时间列拆分，可以使用腾讯云的云开发服务来实现。云开发是一种全栈云原生开发平台，提供了丰富的后端服务和前端开发能力，可以帮助开发者快速构建应用。您可以使用云开发的云函数功能编写拆分日期时间的逻辑，并通过云开发的数据库服务存储拆分后的数据。

腾讯云开发产品介绍链接：腾讯云开发

请注意，以上答案仅供参考，具体实现方式可能因实际需求和环境而有所不同。