请老师给看看如何利用VBA将文本格式的日期带时间拆分

YANWEI82123300

请老师给看看如何VBA将文本格式的日期带时间的值(11/8/2024 7:48 AM)拆分为日期;时间两列

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.11.11
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         c = .Cells(1, Columns.Count).End(1).Column
   
5.         arr = .[a1].Resize(r, c)
   
6.         For i = 2 To UBound(arr)
   
7.             arr(i, 10) = DateValue(arr(i, 9))
   
8.             arr(i, 11) = TimeValue(arr(i, 9))
   
9.         Next
   
10.         .[a1].Resize(r, c) = arr
    
11.     End With
    
12.     MsgBox "OK！"
    
13. End Sub
    

复制代码

YANWEI82123300

ykcbf1100 发表于 2024-11-11 15:58
附件供参考。。。

ykcbf1100老师谢谢您的帮助

YANWEI82123300

ykcbf1100 发表于 2024-11-11 15:58
附件供参考。。。

请您受累把代码图片提供一下,我的office英文打开有问题,我重新抄写一下代码,谢谢