求大佬帮忙用VBA把纯数字转为时间格式

yhls

如图，需要用VBA把A列的数字转为像B列一样的时间格式，不足6位的在前面补0，如果单元格是空则不处理，求大佬帮忙写下代码，谢谢！

小凡、、、

确保A列内容不超过6个数字的情况下

65861954

直接用函数rightt即可。

quqiyuan

公式试试看：
=--SUBSTITUTE(TEXT(TEXT(A1,"000000"),"00-00-00"),"-",":")

65861954

=IF(A1="","",MID(TEXT(A1,"000000"),1,2)&":"&MID(TEXT(A1,"000000"),3,2)&":"&MID(TEXT(A1,"000000"),5,2))

Qs18

1. Sub qs()
   
2. Dim arr, i
   
3. With Sheet1
   
4.     arr = .Range("a1:a" & .Cells(Rows.Count, 1).End(3).Row)
   
5.     For i = 1 To UBound(arr)
   
6.         If arr(i, 1) <> Empty Then
   
7.         s = Format(arr(i, 1), "000000")
   
8.         h = Left(s, 2): m = Mid(s, 3, 2): s = Right(s, 2)
   
9.         arr(i, 1) = TimeSerial(h, m, s)
   
10.         End If
    
11.     Next
    
12. .Range("b1").Resize(UBound(arr), 1) = arr
    
13. End With
    
14. End Sub
    

复制代码

Qs18

试试。。。。。。。。。。。。

Qs18

试试。。。。。。。。。。

cidanji

公式
=IF(A1="","",TEXT(A1,"00:00:00"))

VBA

1. Sub ss()
   
2. Dim ar, i&
   
3. ar = Range("A1:B" & Cells(Rows.Count, 1).End(3).Row)
   
4. For i = 1 To UBound(ar)
   
5.     ar(i, 2) = Format(ar(i, 1), "00:00:00")
   
6. Next
   
7. [A1].Resize(UBound(ar), 2) = ar
   
8. End Sub

复制代码

饮冰e士