批量转换时间程序

guodong321654

需要将B列时间格式比如【2024/1/5   14:56:48】转换成纯粹的时间【14:56:48】不含年月日，需要批量转换程序，求组各位老师
年月日是当天日期，是变量

EXCEL 2003版本

titi012

参与一下.......

1. Sub tt()
   
2.     Arr = Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row)
   
3.     For x = 1 To UBound(Arr)
   
4.         Arr(x, 1) = Arr(x, 1) Mod 1
   
5.     Next
   
6.     Range("F2").Resize(UBound(Arr), 1) = Arr
   
7. End Sub

复制代码

vitrel

请测试：

1. Public Sub getTime()
   
2.     Dim i%
   
3.     For i = 3 To Cells(Rows.Count, "B").End(xlUp).Row
   
4.         Cells(i, "F") = Format(Cells(i, "B"), "h:m:s")
   
5.     Next i
   
6. End Sub

复制代码

vitrel

已提供VBA代码，正在审核中。
或改用公式也是可以的：
=TIME(HOUR(B3),MINUTE(B3),SECOND(B3))

蓝桥玄霜

时间的例子：

YKL_VBA

选择B列，然后查找替换，在查找一栏里输入*号和空格，替换一栏里什么都不输入，然后点击确定