把日期时间按条件拆分

xyh2732

  请问如何可以把B列为日期+时间的单元格拆分成一列日期，2列时间，比如B2单元格“2023/1/2  8:01:05”，拆分后就跟第三行显示的一样。
如果B列没有时间的单元格不做任何动作 测试.rar (303.42 KB, 下载次数: 9)

2023-4-6 10:00 上传

点击文件名下载附件

sdytsxd991122

用数据 分列 就能解决吧

gwjkkkkk

Sub test()
    Dim ar, i&, j&
    ar = [A1].CurrentRegion
    For i = 2 To UBound(ar)
        br = Split(ar(i, 2))
        For j = 0 To UBound(br)
            ar(i, j + 2) = br(j)
        Next j
    Next i
    With [A1].CurrentRegion
        .Columns(2).NumberFormatLocal = "yyyy-m-d"
        .Value = ar
    End With
End Sub

3190496160

Sub chaifen()
With Sheet1
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("b1:d" & r)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            If IsDate(ar(i, 1)) Then
                fm = Format(ar(i, 1), "h:mm:ss")
                If fm <> "0:00:00" Then
                    ar(i, 2) = fm
                    ar(i, 3) = fm
                End If
            End If
        End If
    Next i
    .Range("b1:d" & r) = ar
End With
End Sub

3190496160

3190496160

测试.rar (665.63 KB, 下载次数: 3)

2023-4-6 11:03 上传

点击文件名下载附件

xyh2732

3190496160 发表于 2023-4-6 11:03

感谢您的帮忙，有个小问题，B列日期+时间，可以变成只要日期删除时间吗？

xyh2732

gwjkkkkk 发表于 2023-4-6 10:34
Sub test()
    Dim ar, i&, j&
    ar = [A1].CurrentRegion

感谢您的帮忙，完美！

3190496160

xyh2732 发表于 2023-4-6 14:06
感谢您的帮忙，有个小问题，B列日期+时间，可以变成只要日期删除时间吗？

设置一下单元格格式就行了吧